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Fort Worth Scene 



A LITTLE FANFARE, PLEASE 

Beginning the first of February, 1982 we will be reward- 
ing those of you who submit articles on cassette tapes or 
diskettes (SVt" or 8" as appropriate) of programs and/or text 
material. We are also classifying CompuServe as a magnetic 

media! 

If you submit material on magnetic media, and it is ac- 
cepted for publication (which means we think the materia! 
MAY be used at some point in the future), we will send you two 
cassettes or two diskettes for each one you sent us. If we send 
you cassettes, they will come from our box of mixed blank 
cassettes. If you submit material on CompuServe which we 
think we may use, we will extend your Microcomputer News 
subscription by six months for each article accepted. Note: If 
you are submitting material over CompuServe, please in- 
clude your name and address (including zip code) or your 
subscription number so we can find you. 

QUESTIONS AND ANSWERS 

What do we want? What we want is for you to submit 
both your programs and your text on magnetic media. All of 
our computers (except the Pocket Computer) have SCRIPSIT 
available. If you don't have SCRIPSIT, put the text on tape or 
disk as a data file and give us a little routine to retrieve it. 
Pocket Computer owners— please send us the program on 
tape and the article on paper. 

How will you know if we accept your material? Our 
staff will make reasonable efforts to decide within one week 
after we get the material whether or not we may publish it. 
Considering our internal mail structure and the promptness of 
the U.S. Postal System, it may be eight weeks before you 
hear from us. 

What if you submit material, and we accept it, but it 
is not on magnetic media? In that case, you will have our 
thanks and we will use the material as we can. We want to 
encourage everyone to submit material on magnetic media. 
What if you have a word processor that you could 
use, but it isn't SCRIPSIT. Most word processors give you 
an option of placing material on tape or disk in ASCII format. 
Simply send us an ASCII file, and we will be able to read it. Do 
include a note explaining what you have sent us so we can 
figure out the best way to retrieve the material. Do NOT send 
us a copy of the Word Processor! 

How do you submit material to us over Compu- 
Serve? If the material is very short, send it to us in E-Mail (our 
CompuServe number is 70007, 535). If you have more than a 
few lines, you need to place the material in the ACCESS area 
of CompuServe and then let us know it is there by leaving a 
message on E-Mail (be sure to tell us your CompuServe user 
number and the file name(s) so we get the right material. 

We are hoping that this new policy will improve the way 
we handle material, and also improve the accuracy of pro- 
grams and text in the News. 




As always, correspondence about your subscriptions 
should be directed to: 
Microcomputer News 
P.O. Box 2910 
Fort Worth, Texas 761 13-2910 

TWO LAST-SECOND ITEMS 

First, you may have noticed that our CompuServe user 
ID number has changed. The new number is 70007,535. We 
are assured that E-Mail to the old number will still reach us, 
but please change your records and use the new number. 

Second, the 3-D Color Graphics program in the Febru- 
ary, 1982 Microcomputer News was also published in the 
December, 1981 issue of Chromasette Magazine. Our thanks 
to the author, Mark Granger, for an excellent program. 

Bruce Elliott, Editor 
Linda Miller, Writer 




The TRS-80 Model 16 and two of the TRS-80 DT-1 Data Terminals are 
pictured on the front cover. Information on these two new products can be 

found in this issue. 
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Notes to Program Users: 

Programs published in the Microcomputer News are pro- 
vided as is, for your information While we make reasonable efforts 
to ensure that the programs we publish here work as specified, 
Radio Shack can not assume any liability for the accuracy either of 
the programs themselves, or of the results provided by the 
programs 

Further, while Microcomputer News is a product of Radio 
Shack, the programs and much of the information published here 
are not Radio Shack products, and as such can not be supported 
by our Computer Customer Service group. If you have questions 
about a program in the Microcomputer News, your first option is to 
write directly to the author of the program When possible, we are 
now including authors' addresses to facilitate communications If 
the address is not published, or if you are not happy with the 
response you get, please write us here at Microcomputer News 
We will try (given the limited size of our staff) to find an answer to 
your question and, in many cases, will publish the answer in an 
up-coming issue of Microcomputer News 

Comments on our program listing style: 

In order to make the program listings we publish easier to 
read, we have adopted a style of inserting spaces to enhance 
readability, and we separate each program statement onto a 
separate line While these techniques increase program readabil- 
ity, they also require more memory, and may execute more slowly 
then the original program did 

When you are entering a program for your own use, you may 
wish to eliminate many of the extra blanks (see your owners 
manual for required blanks), and you should certainly move multi- 
ple statements up to a single line where possible. 
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View From the Seventh Floor 



by Jon Shirley, 

Vice President, Radio Shack Computer Merchandising 



What's new for March? A brand new computer catalog 
expanded to 56 pages to hold all the new products! this full 
color catalog (RSC-7) should be available in your nearest 
Radio Shack within two weeks. There is something new for 
every one of you TRS-80 owners no matter what model you 
have, plus there are two new computers and a terminal. Let's 
take a quick look at the new goodies. 

Model I Owners. Well, gang, we know we are late but 
the new catalog has a Radio Shack Model I Double Density 
kit for you disk system owners. It's only $1 49.95 plus installa- 
tion. It includes a new double density TRSDOS that has most 
of the Model III additions and can copy to and from single 
density diskettes. It allows 40 or 35 track operation. It also 
allows you to boot up and run any single density disks you 
have on any operating system. 

If you are a Model I owner and do not have a disk system 
this is the last catalog that will list the expansion interface. It is 
out of production. There are still some left but they won't last 
long. 

Model II Owners. Some of you asked for better 
graphics so we have added SUPER graphics. For $499 plus 
installation we will put a board in your Model II that adds 32K 
of RAM memory to support graphics with a 640 by 240 
resolution. It comes with a graphics BASIC that adds a lot of 
commands to generate the graphics (and many of those are 
very much like the Extended Color Computer graphics with- 
out the color) plus machine language subroutines that can be 
called by your software. For those of you who do not under- 
stand 640 by 240 it means that there are 153,600 points 
(pixels) on your screen and you can turn each one on or off. 

There is also another new goody but please look under 
new products, below, to find it. 

Model III Owners. Sorry gang, no new hardware, but 
there is a lot of new software including our first series of disk 
based games which includes ZORK, the adventure game so 
tough it had to be on disk. Also new is Desktop/Plan-80, a 
neat planning software package. There is also a lot of new 
educational software. 

Color Computer Owners. There are four new 
Program Paks for you, but you will have to get the catalog to 
see what they are. There is also the first of our educational 
cassette 'software line for the Color Computer that includes 
some really unique programs. If your Color Computer 
spends its time in the hands of the young set, take a look at the 
educational pages. 

Pocket Computer Owners. More software for you, too. 
Engineering Math is a series of four programs that are really 
useful. Also check out the "book" page— there is a book of 
Pocket Computer programs for $1 .95. 

New Products, Part 1 . For all of those who have been 
waiting for the Model IV, sorry there is none. There is a Model 
1 6.that we introduced in Fort Worth on January 1 9 so it may 



not be "new" news. The Model 16 is a 16 bit computer 
(surprise?) based on the MC68000 processor. It comes in a 
minimum version for $4999 that includes 1 28K RAM, a green 
monitor, and one 8 inch drive that holds 1 .25 meg. It expands 
up to 51 2K RAM and two drives for 2.5 meg, all in one case. 
That big version sells for $7495. There is a story inside on this 
new machine but please read on as there are some items not 
covered inside. 

What is unique about the Model 1 6 is that it also contains 
a Z80A processor so it can run any and all Model II software. 
That software cannot get to the expanded memory, sorry, but 
it's still a neat trick and very unusual in our industry. Now if we 
can make a Model 1 6 be a Model II can we make a Model II 
be a Model 16? Yes! For $1499 you can buy a kit to be 
installed in your Model II to make it a Model 1 6, 1 28K RAM, 
MC68000. There are some limitations to this. One is that you 
cannot expand your memory to 51 2K, only to 256K and the 
other is that you stay with the same disk drives that you have. 
It means that you will be able to run the new software that will 
be coming for the Model 16. 

The Model 16 also provides one more feature— multi- 
tasking. This means you can connect one or two terminals to 
a Model 16 or a Model II turned 16, and run two or three 
programs all at the same time! Sound neat? We think it is, and 
for more details please visit your Computer Center. 

New Products, Part 2. Also introduced at our January 
19 show was the Pocket Computer PC-2. This is an all new 
Pocket Computer with so many new features I won't even try 
to list them all here. It sells for $279.95 and its matching 
four-color printer/two-cassette interface is $239.95. It's ex- 
pandable with plug in RAM or ROM cartridges and it will be 
able to talk to the outside world in the future. I don't want to tell 
it all so watch for a column from the Pocket Computer Prod- 
uct Manager with all the details. 

New Products, Part 3. We also introduced a neat new 
Terminal, the DT-1 . This is a slightly intelligent terminal with a 
12-inch screen, 80 characters by 24 lines, a full terminal 
keyboard and both serial and parallel printer ports. It can be 
connected to the Model 16 or to any computer that uses a 
dumb terminal or to a modem. It is very state-of-the-art, using 
an EEPROM to store its settings instead of the usual tiny dip 
switches. An EEPROM is an EPROM that can be erased 
electrically. On the DT-1 you enter all the terminal configura- 
tion from the keyboard setting baud rate, stop bits, and a 
whole bunch of user controlled parameters, and they are 
stored in the EEPROM. Turn off the power and you have lost 
nothing— it's still all there and without battery backup. And 
you can reprogram it whenever you like. 

The DT-1 sells for $699 and you can also tell it to be an 
ADDS, a Hazeltine, aTelevideo or a Lear Sigler terminal and it 
will do it automatically. If you have use for a terminal, take a 
look— this one is winner. 
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Final Important Note. Not every item I have described 
here is available at your nearest Radio Shack— the catalog is 
what is available. Some of these items carry "late availability" 
dates in the catalog, which were based on our best estimate 
when we went to press in early January. So please don't write 
in and say I said it was available because it was in this column. 
All I am trying to do is show you that we are hard at work in 
Fort Worth adding lots more items to the biggest microcom- 
puter line in the world. I hope you find at least one of them is 
just what you were waiting for. 

Until next month . . . 



Richard Huttenbrauck 
429 Rainey Court 
Virginia Beach, VA 23452 



With this program you have to guess the correct four digit 
number that has been picked by the computer. All you do is 
try to figure out which four numbers ranging from - 9 the 
computer has picked, and in what order. Further instructions 
are given in the program text itself. (This program was written 
on a Model I Level II). 

Have fun and good luck! 

10 CLS 

PRINT TAB (24) "NUMBER SEQUENCE" 

PRINT TAB(24)"RICH'S PROGRAM" 

PRINT 

PRINT"I HAVE SELECTED A RANDOM 4 DIGIT 
NUMBER FOR YOUR TO DE-CODE," 
: PRINT "THE DIGITS ARE FROM 0-9. SELECT 
YOUR COMBINATION OF 4 DIGITS & "; 
20 PRINT "TRY TO MATCH YOUR SEQUENCE WITH MINE. 
YOU HAVE 10 TRIES." 

: PRINT "ALONGSIDE OF YOUR PICKED NUMBER 
YOU WILL SEE 2 DIGITS" 

: PRINT "DISPLAYED. THE FIRST DIGIT STATES 
THE AMOUNT OF CORRECT NUMBERS THAT"; 
30 PRINT " YOU'VE CHOSEN AND THE SECOND DIGIT 
STATES THE AMOUNT OF " 

: PRINT"CORRECT POSITIONS YOU HAVE ENTERED 
THE CORRECT NUMBER IN." 
: PRINT"GOOD LUCK!" 
: PRINT 
35 PRINT"TYPE IN 4 NUMBERS AND PRESS ENTER!" 
: PRINT 

: FOR X=l TO 4 
40 A(X)=RND(10)-1 

FOR Y=l TO 4 

IF Z(Y)=A(X) GOTO 40 

NEXT 

Z(X)=A(X) 

NEXT 

FOR Y=l TO 10 

PRINT Y""; 

INPUT A 

FOR X=l TO 40 

PRINT"."; 

NEXT 

A=A*.001 

B(lKlNT(A) 

T=A-B(1) 

M=T*10 

FOR X=2 TO 4 

B(X)=INT(M) 

M=M-B(X) 

M=(M+.003)*10 



NEXT 

H=0 

G=0 

FOR X=l TO 4 

IF A(X)=B(X) H=H+1 
60 IF A(X)=B(1) OR A(X)=B(2) OR A(X)=B(3) OR 

A(X)=B(4) G=G+1 
70 NEXT 

: IF H+G=7 H=4 
80 PRINT TAB(40)G; 

PRINT TAB(48)H 

IF H+G = 8 PRINT"WHAT LUCK! YOU WIN" 

GOTO 100 
85 NEXT 
90 PRINT 

PRINT"SORRY MAYBE NEXT TIME!" 

PRINT"YOUR NUMBERS WERE"; 

PRINT TAB(36)"»»"; 

FOR X=l TO 4 

PRINT A(X); 

NEXT 

PRINT" ««" 
100 PRINT 

INPUT" TO PLAY AGAIN PRESS ENTER" ;A$ 

CLS 

CLEAR 

GOTO 35 



Coded IVIessai 



For Kids Only 

David Snyder 
Route 4, Box 952 
Bainbridge, GA 31717 



Here is a coded message for you to decode. There is 
only one hint: If you cannot decipher this message, say to 
yourself, "Aw, hex . . . this guy must be a real ASCII!" 

434F4E475241 54554C41 54494F 
4E5321 2020594F552752452053 
4D41 5254455220544841 4E2059 
4F55204C4F4F4B21 2020544841 
5427532050524F4241 424C5920 
57485920594F5520524541 4420 
5241 44494F20534841 434B204D 
4943524F434F4D505554455220 
4E4557534C45545445522E 

P.S. I have a TRS-80 16K Level II microcomputer. 



Doubl 

Robert Pollock 
Homewood, IL 



Like many Model I/III users, I started with tape and 
advanced to Disk BASIC. In looking back, the worst part of 
using tape for program storage was the major inconvenience 
of waiting for the machine to complete the double and triple 
program dumps. I since have thought of a simple way to 
eliminate the waiting. Why I didn't think of it earlier, I'll never 
know. 

To do a double dump to tape, simply type the following: 
CSAVE "filename": CSAVE "filename" < ENTER) 
Now while the computer records two copies of that long 
program, go walk the dog. 
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Feature Story 



Assembly Language Graphics 



by William Barden, Jr. 

®William Barden, Jr. 



If you want to be an assembly language programmer, 
you must learn to follow the rules. In this column we'll provide 
some of the basic programming rules. This is not a compre- 
hensive list. 

RULE #1: No true assembly language programmer 
ever used "code" written by someone else when he could 
write his own. 

Picture this scene: The programming manager is con- 
fronting one of his charges: "I thought that Radio Shack 
already had a package for predicting pork belly commodity 
prices that runs on the Model III?" 

"Uh, well, uh, I don't know if it's exactly what we're 
looking for. . . We could add our own sort 
routines ... uh ... I don't like the way they do their 
menus ... I think we could speed it up ... It wouldn't take 
long ..." 

True to form, your assembly language columnist is rein- 
venting the wheel. I know Color Computer BASIC has some 
excellent SET/RESET and PSET/PRESET commands for 
color graphics. However. . . 

In fact, there are some advantages to using assembly 
language code for graphics. The BASIC commands are ex- 
cellent, but for high-speed games, animation, simulation, and 
other uses, assembly language can be much faster. Of 
course, one never gets something for nothing. If you will give 
a little sweat and tears, I'll show you some assembly lan- 
guage code that can be used for a variety of high-speed 
graphics. This month we'll research the problem and learn 
about low-resolution graphics; next month I'll show you how 
the routines can be used for a practical game. 

LOW-RESOLUTION GRAPHICS 

The programs we'll be talking about here run on low-res- 
olution color graphics. There are a number of graphics 
modes on the Color Computer, ranging all the way up to 
"high-res" of 256 horizontal elements by 192 vertical ele- 
ments. The "low-res" graphics here offer 64 horizontal ele- 
ments by 32 vertical elements. We'll cover the high-resolution 
graphics in a later column. The low-res graphics mode is a 
good starting point. 

As you know, the Color Computer has 16 lines of 32 
characters each, a total of 51 2 characters, as shown in Figure 
1 . Each character is held in one byte. The normal "buffer" for 
the text screen is located starting at location 1 024 and contin- 
uing through location 1535. (This corresponds to $400 
through $5FF, where the "$" is the prefix for hexadecimal.) 

Line 0, character position is at RAM location 1 024, line 
0, character position 1 is at location 1025, and so forth, on 
through location 1 535, which is line 1 5, character position 31 . 

Color BASIC uses a low-resolution mode that divides 
each of the 51 2 character positions into 4 "pixels," or "picture 
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Figure 1 . Color Computer Low-Resolution Graphics Mode 

elements." In this mode, each character position can repre- 
sent a text character or 4 color elements. 

First the bad news: The 4 color elements must be the 
same color, or black. You can't have two pixels of red, one of 
green, and one of buff, at least for the same character posi- 
tion. Adjacent character positions can have different colors 
with no problem. The good news is that this mode is easy to 
set up and that text and graphics characters can be inter- 
mixed. You can have a text "WTB JR" surrounded by red, for 
example. 

Each of the 512 bytes corresponding to a character 
position is marked as either a text byte or a graphics byte by 
the first bit, bit 7. (See Figure 1). If this bit is a one, the 
remainder of the byte represents a text character in ASCII-like 
code. If bit 7 is a zero, the remaining bits represent a color 
code and four pixels, as shown in the figure. 

The color codes are through 7 and represent green, 
yellow, blue, red, buff, cyan, magenta, and orange. Note that 
these are in the same order, but one less than the standard 
BASIC color codes. The color code is in bits 6 through 4 of the 
character position byte. 



TRS-80 Microcomputer^News, March 1982 



The remaining four bits, bits 3 through 0, represent the 
four pixels of the character position. If a pixel bit is a one, the 
pixel is on, and the color is the same as defined in the color 
code. If the pixel bit is a zero, the pixel is off, or black. 

BASIC SET/RESET 

The Color BASIC command for setting any pixel is "SET 
(X,Y,C)," where X is the horizontal coordinate of through 63, 
Y is the vertical coordinate of through 31 , and C is the color 
code of 1 through 8. RESET is similar, except that the pixel is 
turned off and no color code need be specified: RESET (X,Y). 

We'll emulate the BASIC SET/RESET in our assembly 
language code. 

WASN'T GENERAL ALGORITHM A FRIEND OF 
PATTON'S? 

In theory, all we must do to set a pixel is to find the buffer 
byte associated with the pixel position and set the bit for the 
pixel. Simple? Which brings us to our second rule of assem- 
bly language programming: 

RULE #2: In theory, everything is easy. Implementation is 
horrendous. 

The complicating problem here is the "mapping" of the 
pixels is not as easy as we would like it to be. Instead of four 
bits representing four horizontal pixels along a row, four bits 
represent two rows of two columns as we saw in Figure 1 . 
Can we figure out a general algorithm, or plan, for finding the 
proper byte in the text buffer for any given x,y pixel? When I 
first sent this column in, I admitted I couldn't, and ended it at 
this point. Prompting by Bruce Elliott, however, gave me the 
motivation to proceed. 

If you give it some thought, you'll see that the starting 
byte number of the line holding the pixel is given by: 

LINEST = INT(Y/2)*32 

A pixel of (1 2, 1 1 ), for example, is found in the line starting 
at (INT(11/2)*32), or byte 160. The quantity INT(Y/2) is the 
"integer" form, the result to the next lower integer. (See INT in 
BASIC.) 

The actual byte holding the pixel is this starting byte 
number plus INT(X/2). Since each byte holds 2 columns, the 
X value must be divided by 2; byte 31 along the line holds the 
pixel bit for X = 62 and X = 63, for example. The "byte dis- 
placement" from the start of the text buffer is therefore: 

BYTE DISP = INT(Y/2)*32 + INT(X/2), 
where both the INT(Y/2) and INT(X/2) are to the next 
lower integer. Try some examples of this for various X and Ys, 
and you'll see how the byte can be located. 

Once the byte displacement is found, the starting loca- 
tion of the buffer, decimal 1 024 can be added to produce the 
actual RAM location that contains the pixel in question. 

The byte in the RAM location can then be picked up, and 
a one bit put into the pixel bit to set the pixel to the color. Prior 
to the first SET, the text buffer should be cleared to all graphics 
by POKEs of 128 + c*16, where C is the color code of 
through 7. This POKE sets the graphic bit, bit 7, and the color 
code in bits 6 through 4, but leaves all pixels off, or black. 
Individual SETs will be used to set each pixel. 

A second difficulty is determining which pixel to SET 
from the X,Y coordinates. Again, it's not obvious without 
some thought. As it turns out, when Y is even and X is even, 
bit 3 should be set. When Y is even and X odd, bit 2 should be 
set. When Y is odd and X even, bit 1 should be set. When Y is 
odd and X odd, bit should be set. (To that reader in 



Dubuque - nobody promised you a rose garden, fellah 
This can all be summed up as follows: 



Y X 


LS Bits' 
Y X 


Mask 
3 2 10 


even even 
even odd 
odd even 
odd odd 




1 
1 



1 

1 


=5 



The "mask" value represents which bit of bits 3 through 
should be set. 

A RESET is very similar except that instead of a one bit 
being put into the pixel bit, a bit is stored instead. 

THE ASSEMBLY LANGUAGE CODE 

Armed with our trusty algorithm, we'll surge forward into 
the coding. The result of hours of work is shown in Listing 1 . 
Lots of assembly language programs are done "inward out." 
And so it was here— the core routine is the ADDMSK subrou- 
tine. ADDMSK finds the text buffer address for a given X,Y 
pixel and also supplies the mask value. The SET/RESET 
action is taken in the SET and RESET code. 

THE ADDMSK SUBROUTINE 

ADDMSK assumes that the X,Y coordinates are in the A 
and B registers of the 6809E. Remember that the A and B 
registers are 8-bit registers that can be grouped together into 
a 16-bit register called the D register. 

The assembly language code is on the right of the listing; 
the resulting "machine-language" bytes are the hexadecimal 
values on the left. Let's follow ADDMSK. 

First, the D register (A and B) is saved in the stack. This is 
the "hardware" stack, the RAM area used to store temporary 
results and subroutine return addresses, among other things. 
(Recall that we've got a second stack area called the "user" 
stack, which is pointed to by the U register. We won't compli- 
cate things by using the user stack in these subroutines.) 

The X and Y values are saved in the stack so that we can 
restore them a little later. 

The LSRB shifts Y in the B register right one bit position. 
This divides Y by 2 with the least significant bit being dis- 
carded, effectively an "INT" action. 

Next, A is loaded with decimal 32. The "#" indicates 
"immediate" addressing, where the operand is in the instruc- 
tion bytes themselves ($20 is decimal 32). A multiply multi- 
plies 32 times y/2 and puts the result in A,B (D). We've found 
the start of the line containing the pixel. 

Next, hex 400 (1024 decimal) is added to the result. 
We're now pointing to the actual buffer byte that represents 
the start of the line. This value is saved on the stack by the 
PSHS D. 

Now here's a subtle instruction: The LDB 2,S takes the 
stack pointer S register, adds 2 to its contents, and then uses 
the result as a memory address for the load into B. The S 
register always points to the last stored value on the stack. 
Remember that the stack builds down in memory. This in- 
struction picks up the X value from the first PSHS. 

The CLRA clears the A register. The LSRB shifts B right 
one bit position. We've now got X/2 in D (A,B). The ADDD 
,S + + adds X/2 to the previous result, and we're now point- 
ing to the actual byte in the buffer containing the pixel. The 
ADDD adds two bytes from the stack; the stack pointer S still 
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Listing 1 



3F| 



3F00 
3F03 

3F05 
3F07 
3F09 
3F0B 
3F0D 
3F0F 
3F10 
3F11 
3F12 
3F13 
3F15 
3F17 
3F19 
3F1A 
3F1B 
3F1E 



3F1F 
3F22 
3F24 
3F25 
3F27 
3F29 



17 
8D 

IF 
A4 
27 
E6 
C4 
54 
54 
54 
54 
20 
EA 
E7 
5F 
4F 
17 
39 



17 
8D 
43 
A4 
A7 
39 



74EA 
25 

89 
84 
0A 
84 
70 



05 
84 
84 



75D6 



00100 ORG $3F00 

001 10 ***************************************************** 

00120 * SET SUBROUTINE. SETS X,Y POINT IN LOW-RES MODE * 

00130 * CALLED FROM BASIC WITH X,Y IN ARGUMENT 8,8 * 

00140 ***************************************************** 

00150 SET LBSR $B3ED GET ARGUMENTS 

00160 BSR ADDMSK FIND ADDRESS, MASK 



74CB 
06 

84 
84 



3F2A 


34 


06 


3F2C 


54 




3F2D 


86 


20 


3F2F 


3D 




3F30 


C3 


04 


3F33 


34 


06 


3F35 


E6 


62 


3F37 


4F 




3F38 


54 




3F39 


E3 


El 


3F3B 


IF 


01 


3F3D 


A6 


E4 


3F3F 


43 




3F40 


84 


01 


3F42 


4C 




3F43 


A7 


E4 


3F45 


E6 


61 


3F47 


C4 


01 


3F49 


26 


02 


3F4B 


48 




3F4C 


48 




3F4D 


32 


62 


3F4F 


39 





00000 TOTAL ERRORS 



00170 TFR A,B 

00180 ANDA ,X 

00190 BEQ SET010 

00200 LDB ,X 

00210 ANDB #$70 

00220 LSRB 

00230 LSRB 

00240 LSRB 

00250 LSRB 

00260 BRA SET90 

00270 SET010 ORB ,X 

00280 STB ,X 

00290 CLRB 

00300 SET090 CLRA 

00310 LBSR $B4F4 

00320 RTS 

00330 *********************** 

00340 * RESET SUBROUTINE. RES 

00350 * CALLED FROM BASIC WIT 

00360 *********************** 

00370 RESET LBSR $B3ED 

00380 BSR ADDMSK 

00390 COMA 

00400 ANDA ,X 

00410 STA ,X 

00420 RTS 

00430 *********************** 

00440 * FIND LOW-RES ADDRESS, 

00450 * INPUT: A,B=X,Y 

00460 * OUTPUT:X=BUFFER 

00470 * A=MASK 

00480 *********************** 

00490 ADDMSK PSHS D 

00500 LSRB 

00510 LDA #32 

00520 MUL 

00530 ADDD #$400 

00650 PSHS D 

00550 LDB 2,S 

00560 CLRA 

00570 LSRB 

00580 ADDD ,S++ 

00590 TRF D,X 

00600 LDA ,S 

00610 COMA 

00620 ANDA #1 

00630 INCA 

00640 STA ,S 

00650 LDB 1,S 

00660 ANDB #1 

00670 BNE ADD090 

00680 LSLA 

00690 LSLA 

00700 ADD090 LEAS 2,S 

00710 RTS 

00720 END 



SAVE MASK IN B 
TEST ALREADY SET 
GO IF NOT SET 
SET, FIND COLOR 
MASK OUT COLOR 
ALIGN FOR 1-7 CODE 



RETURN 
SET PIXEL 
RESTORE 

FOR SET ACTION 
CLEAR A FOR CONVERT 
CONVERT ARGUMENT TO INTEGER 
RETURN 
****************************** 

ETS ONE PIXEL IN LOW RES MODE* 
H X,Y IN ARGUMENT 8,8 * 

****************************** 

GET ARGUMENTS 
FIND ADDRESS, MASK 
FLIP MASK FOR RESET 
RESET PIXEL 
RESTORE BYTE 
RETURN 
****************************** 

MASK * 

* 

ADDRESS * 

* 
****************************** 

SAVE X,Y 

FIND START OF LINE 

32 IN A, Y IN B 

START OF LINE 

ADD START OF BUFFER 

NOW ON STACK 

GET X 

NOW IN D 

X/2 

BUFFER+LINE ST+X/2 

NOW IN X 

GET X 

COMPLEMENT BIT 

FIND ODD/EVEN 

EVEN TO 10, ODD TO 01 

SAVE 

GET Y 

GET ODD/EVEN 

GO IF ODD (MASK=10 OR 01) 

ALIGN (1000 OR 0100) 

RESET STACK 
RETURN 
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points to the previous result. The " + + " increments the stack 
pointer by 2 after the add, "resetting the stack pointer" so that 
it now points to the data pushed on the first PSHS. The TFR 
transfers the result in D to the X register, the 16-bit index 
register. 

We now have the address of the buffer byte containing 
the pixel in X. We need to find which bit should be set or reset. 
To explain this, we need RULE 3. 

RULE #3: Always try to be clever, even if it takes hours. 

The code from line 600 through 690 produces a "mask 
value" in A. The mask value is binary 00001 000, 000001 00, 
00000010, or 00000001, depending upon which pixel is 
involved. The code is not as straightforward as it could be. 
Your columnist fell headlong into rule number 3 and must 
now take 8 paragraphs to hem and haw about why he did it 
this way. (The truth is I wanted to speed up the code. 
Ahem . . . ) 

The LDA ,S gets the original X value from the stack. This 
value is complemented by the COMA - all ones are changed 
to zeroes and all zeroes to ones. Next, the least significant bit, 
bit 0, is found by the ANDA #1 . One is added to this bit by the 
INCA. The result is 1 if X is even, and 01 if X is odd. The result 
is stored back in the stack. 

The LDB 1 ,S gets the original Y. An ANDB #1 finds the 
least significant bit. If this bit is not (BNE) the two "shift left" 
instructions are bypassed, and the mask remains 0010 or 
0001 . If the bit is (Y even), the mask becomes 1 000 or 01 00. 

We now have the address of the byte containing the pixel 
in X and the mask for the set/reset in A. 

The instruction at ADD090 resets the stack pointer by 
adding 2 to the contents of S. This makes S point back 
beyond the data "pushed" in this subroutine. 

THE RESET SUBROUTINE 

This subroutine is "called" from a BASIC program to 
reset a pixel. It, in turn, calls ADDMSK. The call to reset uses 
the USR call in Color BASIC or the USRn call in Extended 
Color BASIC. The form of this call is "X = USRn(N)." The N 
parameter is a 16-bit "integer" value of -32768 through 
+ 32767. In fact, the upper 8 bits of this value represent X, 
and the lower 8 bits represent Y. A call to RESET 20,30, for 
example, could be made by 

Z = USRn(20*256 + 30) 

Multiplying by 256 aligns X into the upper 8 bits. The "Z" 
parameter is a "dummy" and can be any variable. 

The protocol for passing the argument to RESET says 
that a call to the integer convert subroutine at ROM location 
$B3ED must be done. This converts a "floating-point" form of 
. the argument into a 16-bit value (see Extended BASIC man- 
ual). After the LBSR $B3ED, the A and B registers contain X 
and Y, respectively, from BASIC. 

The BSR ADDMSK now finds the byte location of the 
pixel in X and the mask in A. The mask is complemented for 
the RESET. For example, a mask of 00001000 becomes 
11110111. The ANDA passes all bits except for the pixel 
involved, resetting that pixel with a zero. A STA then stores the 
modified byte back into the text buffer. 

The RTS instruction returns to the BASIC statement fol- 
lowing the USR call; the pixel has now been reset by storing a 
in the appropriate bit. 

THE SET SUBROUTINE 

The SET subroutine is somewhat more involved than 



RESET. Again, the X,Y parameters are passed from BASIC 
by a call to INTCNV at ROM location $B3ED, and the byte 
location and mask are found by a call to ADDMSK. 

SET then tests the bit to be set. If it is already set (BEQ 
SET010) the byte containing the pixel is ANDed with #$70. 
This value (binary 0111 0000) masks out the color code. Four 
LSRBs shift the color code four bit positions to the right and it 
is returned to BASIC as a parameter. If the bit is not already 
set, it is set to a one and a zero is returned to BASIC. 

The LBSR $B4F4 is the standard way to pass back an 
argument from machine language to BASIC. The ROM rou- 
tine at $B4F4 converts an integer value of -32768 through 
+ 32767 to a floating point value for BASIC. The value to be 
converted is in A,B (D) before the LBSR. The value is set 
equal to the variable equated to the USR call in BASIC. 
Z = USRn(X), for example, returns the argument as 
variable Z. 

The idea behind returning a color code is to detect 
"boundary colors" which may be useful in game playing. 
More on that aspect in the next column. 

ASSEMBLING THE PROGRAM 

The SET/RESET/ADDMSK program was assembled by 
the Color Computer Editor Assembler. You may choose to 
key in the "source code," the assembly language statements 
on the right side of the listing, and reassemble it for practice. 
After keying in the source code, assemble and compare the 
machine code on the left side of the listing. It should be 
identical. Now assemble and write an object file to cassette. 

The object file can be loaded from cassette by the follow- 
ing procedure: 

1 . CLEAR 200.&H3EFF from BASIC. This reserves the 
$3F00 area for the machine code. 

2. CLOADM the object file. This loads the machine code 
into the $3F00 area. 

THE CODE INCORPORATED AS DATA STATEMENTS 

An alternative to reassembling is to use BASIC DATA 
statements for the code. Listing 2 shows this method. Listing 
2 shows the code as a series of DATA statements of 1 per 
line. The code is moved from the DATA statements to the 
$3F00 area by the first part of the BASIC program. Each 
DATA value corresponds to one machine language byte from 
Listing 1. 

Listing 2 

100 ' MOVE MACHINE LANGUAGE 

110 DATA 23,116,234,141,37,31,137,164,132,39 

120 DATA 10,230,132,196,112,84,84,84,84,32 

130 DATA 5,234,132,231,132,95,79,23,117,214 

140 DATA 57,23,116,203,141,6,67,164,132,167 

150 DATA 132,57,52,6,84,134,32,61,495,4 

160 DATA 0,52,6,230,98,79,84,227,225,31 

170 DATA 1,166,228,67,132,1,76,167,228,230 

180 DATA 97,196,1,38,2,72,72,50,98,57 

190 FOR I=&H3F00 TO &H3F4F 

200 READ A 

210 POKE I, A 

220 NEXT I 

230 ' DEFINE MACHINE-LANGUAGE 

240 DEFUSR0=&H3F00 

250 DEFUSR1=&H3F1F 

260 ' NEXT GRAPHICS CLEAR SCREEN WITH ORANGE 

270 FOR 1=1024 TO 1024+511 

280 POKE 1,240 

290 NEXT I 

300 ' NEXT SET ALL 2048 PIXELS 

310 FOR X=0 TO 63 
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320 FOR Y=0 TO 31 

330 A=USR0(X*256Z+Y) 

340 NEXT Y 

350 NEXT X 

360 ' NEXT RESET ALL PIXELS 

370 FOR Y=0 TO 31 

380 FOR X=0 TO 63 

390 A=USR1(X*256+Y) 

400 NEXT X 

410 NEXT Y 

420 * NOW SET ONE PIXEL AND TEST 

430 SET (RND(63),RND(31),8) 

440 FOR X=0 TO 63 

450 FOR Y=0 TO 31 

460 A=USR0(X*256+Y) 

470 IF A<>0 THEN STOP. 

480 NEXT Y 

490 NEXT X 

CALLING THE SUBROUTINES FROM BASIC 

Listing 2 shows a BASIC test driver that will help you get 
familiar with the program. This version is for Extended Color 
BASIC, but we'll explain the modifications required for Color 
BASIC. 

After relocating the code, the BASIC driver defines the 
SET and RESET subroutine starting points by the DEFUSR 
statements. DEFUSRO is SET and DEFUSR1 is RESET. 

Next, the screen is cleared to all graphics characters by a 
POKE of 240 into locations 1 024 through 1 535. This resets all 
pixels and sets the color codes to orange, or 7. 

Next, SET is called by USRO for all pixels. The coloring is 
done as a series of vertical bars that sweep from left to right. 

Next, RESET is called by USR1 for all pixels. The clearing 
is done as a series of horizontal bars that sweep from top to 
bottom. 

Finally, the BASIC SET command is used to set one pixel 
at random. SET is then called by USRO to set pixels unless the 
pixel is already set. In this case the program STOPs. 

PASSING THE ARGUMENTS FOR X AND Y 

The USR calls in the program show the procedure I 
described earlier for passing X and Y. The X parameter is 
multiplied by 256 and the Y parameter is added to it. This puts 
X in the "most significant" 8 bits and Y in the "least signifi- 
cant" 8 bits of the argument. 

PROCEDURE FOR COLOR BASIC 

Color BASIC uses USR in place of USRn. The USR 
command assumes that the starting location of the subrou- 
tine has been stored in locations 275 and 276. Do a POKE 
275,63 and a POKE 276,0 before each call for SET and a 
POKE 275,63 and POKE 276,31 before each call for RESET. 
Also, change the USRO and USR1 to "USR." Everything else 
remains the same. 

HOW DOES SET/RESET COMPARE? 

To evaluate SET/RESET, we need Rule #4. RULE #4: 
Never admit that your program may be not quite as good as 
another. 

If you run the normal SET/RESET in Color BASIC and 
time it, and then run our assembly language version, you'll 
see that our version runs at about the same rate ... All right, it 
is slightly less rapid . . . That is to say, somewhat 
slower. . . Aw shucks, it just isn't as fast as Color BASIC. 

Honestly though, the somewhat slower speed of our 
SET/RESET isn't the point. We now have our own code which 



can be interfaced with other assembly language code. The 
result will be very powerful assembly language code that will 
provide functions that are not implemented in Extended 
Color BASIC or that will be significantly faster. We'll see 
examples of some of these in the next column. 

THE OBLIGATORY END OF COLUMN SERMON 

In the meantime, study the examples here. As I men- 
tioned in the first column, I can't provide a series of assembly 
language tutorials in this column. You'll need to do a signifi- 
cant amount of study on your own. What I will do is present a 
detailed example of an assembly language application for 
each column and show you how I went about solving the 
problem. We'll get into more and more aspects of 6809E 
assembly language with each column. Between columns, 
crack those books! 



DELTASIN 



David Sligar 

882-D Revere Village Court 

Centerville, OH 45459 



I am sure that Color Computer owners will enjoy the 
impressive graphics this program generates. This program is 
a modification of sample program #9— Sine Wave, listed in 
the back of Going Ahead With Extended Color Basic. My 
program, which I call "DELTASIN" will produce a three-di- 
mensional sine wave . 

By increasing the value of N in statement 35 (try N = 720 
or N = 960) you can increase the density of the points plotted, 
but the program will take longer to run. (Lower values of N 
have the opposite effect.) 

By changing the value of R in statement 40, you can vary 
the amplitude of the three-dimensional sine wave. 

1 '***DELTASIN*** 

2 ' 

5 PMODE 4,1 
10 PCLS 
15 SCREEN 1,1 
20 PI=3, 14159 

24 Q=l 

25 A1=-4*PI 
30 A2=4*PI 
35 N=360 

40 R=20 

41 IF A>1 THEN R=R+Q 
45 X=(A2-A1)/N 

50 F=255/(A2-A1) 

55 FOR I=A1 TO A2 STEP X 

60 X=I*F 

65 Y=R*SIN(I+Q) 

70 PSET 

75 NEXT I 

77 Q=Q+7 

78 IF Q>56 THEN GOTO 78 
80 GOTO 25 
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Computer Customer Service 



Relocating Machine Language 
Programs 



This month we have some information for you that 
should reinforce your confidence in Radio Shack's wanting to 
support what we sell. One question which is asked several 
times a day is, "Why won't Pyramid (or Raaka-Tu, or Eliza, or 
any other Machine Language Tape Based program) run from 
my disk system? I just paid $400.00 to upgrade to disk and 
nothing will run." 

The answer to that question is very simple. These games 
were designed to load into a 16K computer, and therefore, 
load very low in user RAM . That just happens to be the same 
area where TRSDOS loads. When you load a game on top of 
TRSDOS, the computer will either re-boot or just "hang up." 

First, let me assure you that it has never been a matter of 
not wanting to help you. Due to the work of many dedicated 
individuals, we are now able to give you a routine which will 
allow you to relocate the programs to an area of memory 
which does not interfere with TRSDOS. So much for the 
answer. Now on to the solution. 

In general, to get a tape based, machine language pro- 
gram onto disk, you are going to go into DEBUG to enter two 
very short machine language programs. The first will move 
your program up into high memory (out of the way of 
TRSDOS) and the second will move it back to its normal place 
and execute it. 

The Hexadecimal values shown in the tables are the 
actual program addresses. For a machine language pro- 
gram, any address used must have the LSB (Least Significant 
Byte) first, then the MSB (Most Significant Byte) when entered 
into the two move routines. 

Example: 

Desired MSTART - 7C20 Enter as 20 10 

Desired LENGTH - 0D10 Enter as 10 0D 

Desired ENTRY - 4AF6 Enter as F6 4A 

To help, we've broken them into columns and labeled 
them as Si & S2 (the 2 byte start address), E1 & E2 (the 2 byte 
execute address), L1 & L2 (the 2 byte length address), and 
M1 & M2 (the 2 byte Move Start address). Remember, these 
are only the "variable names." Use the values from the Ad- 
dress Allocation Table in this article. 

Here is the Move-Up routine: 



Now, the Move-Back routine: 



21 


S2 


SI 


LD HL, START 


11 


M2 


Ml 


LD DE, MSTART 


01 


L2 


Ll 


LD BC, LENGTH 


ED 


B0 




LDIR 


C3 


00 


00 


JP REBOOT 



So, what does this mean? Let's take an example. For 
Pyramid, we-would type in, under DEBUG, 21 00 43 1 1 20 80 
01 FE 3C ED B0 C3 00 00. We will continue to use Pyramid in 
the examples, but you should follow the table for any of the 
other programs. Just change the values for S2, S1 , M2, M1 , 
L2 and L1 . 



21 M2 Ml 


LD HL, MSTART 


11 S2 SI 


LD DE, START 


01 L2 Ll 


LD BC, LENGTH 


ED B0 


LDIR 


C3 E2 El 


JP ENTRY 


From the table: 


START 


4300 


END 


7FFE 


ENTRY 


4300 


LENGTH 


3CFF 


MSTART 


8020 


MEND 


BD40 


MENTRY 


BD30 


MOVE -UP 


8010 



1. From TRSDOS Ready, type: (For Model I, press 
< BREAK) after pressing < ENTER > . 

DEBUG <ENTER> 

M 

8010 <SPACE BAR> (Move up from table) 

2. Enter the Move-Up routine: (For Model I, press 
(SPACEBAR) after each pair of numbers.) 

21 00 43 11 20 80 01 FF 3C ED B0 C3 00 00 

3. Press < ENTER) to finish that entry and < M ) again to 
enter the Move-Back routine: 

<ENTER> 

M 

BD30 <SPACE BAR> (MENTRY from* the table) 

4. Enter the Move-Back program: 

21 20 80 11 00 43 01 FF 3C ED B0 C3 00 43 

5. Exit to ROM BASIC by holding down the BREAK key 
while pressing RESET. 

6. Press < ENTER) to answer the prompt(s), then type 
SYSTEM (ENTER). When *? appears, type PYRMD 
(ENTER). When *? appears again, type /32784 
(ENTER). (The address 32784 is from the Exec 
Moveup Column of the table, and causes execution 
of the Move-Up program.) 

<ENTER> 

SYSTEM <ENTER> 
*? PYRMD <ENTER> 
*? /32784 <ENTER> 

(TRSDOS will automatically re-boot) 

7. Then, at TRSDOS Ready, type the following to create 
your disk file: 

(for a Model III) 

DUMP PYRMD/CMD (START=8020,END=0BD40,TRA= 
0BD30) <ENTER> 

or (for a Model I) 

DUMP PYRMD/CMD (START=X'8020 ' ,END=X'0BD40' , 
TRA=X'0BD30') <ENTER> 

Notice that a zero has been added before any number 
which begins with a letter. 
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Now let's 


do another exarr 


iple 


From the table: 




START 


5000 




END 


7100 




ENTRY 


5000 




LENGTH 


2101 




MS TART 


7120 




MEND 


9240 




MENTRY 


9230 





Invasion Force. 



1 . From TRSDOS Ready, type: 

DEBUG <ENTER> 

M 

7110 <SPACE BAR> (Move up from the table) 

2. Enter the Move-Up routine: 

21 00 50 11 20 71 01 01 21 ED B0 C3 00 00 

3. Press < ENTER) to finish that entry and <M> again to 
enter the Move-Back routine: 

<ENTER> 

M 

9230 <SPACE BAR> (MENTRY from the table) 

4. Enter the Move-Back program: 

21 20 71 11 00 50 01 01 21 ED B0 C3 00 50 

5. Exit to ROM BASIC by holding down the BREAK key 
while pressing RESET. 

6. Answer the Prompt(s). When Ready appears, type in 



SYSTEM <ENTER>. After *? appears, type in 
INVADE (ENTER) and let the program load. When 
*? appears, type in /28944. This will cause the Move- 
Up program (which is located at 71 10 Hex or 28944 
Decimal) to execute. 

<ENTER> 

SYSTEM <ENTER> 
*? INVADE <ENTER> 
*? /28944 <ENTER> 

(TRSDOS will automatically re-boot) 
7. Then, at TRSDOS Ready type the following to create 
your disk file: 

DUMP INVADE/CMD (START=7120 ,END=9240, 
TRA=9230) <ENTER> 

Or, on a Model I, when DOS READY appears, type: 

DUMP INVADE/CMD (START=X ' 7120 ' ,END= 
X' 9240 ' ,TRA=X' 9230') <ENTER> 

If you follow the procedure outlined here EXACTLY as 
shown, you shouldn't have any trouble. If your "moved" 
program fails to execute, check the following: 

1. Correct addresses used for the program moved, 

M1,M2,S1,S2,L1,L2,E1 and E2. Correct addresses 

used and correct programs entered for Move-up and 

Move-Back. 

2. Correct decimal execute address used for Move-up 



Address Allocation Table 



NOTICE TO MODEL I OWNERS: This information has not been tested on a Model I. We know that you will have problems on programs like Raaka-Tu 
and Pyramid. A follow-up article in the near future will give you a reliable way to move these other programs. 

START END ENTRY LENGTH MSTART MEND MENTRY Required 

Program Name S1 S2 E1 E2 L1 L2 M1 M2 Move Move Exec Memory 

Back Up Moveup Size 



EDITOR ASSEMBLER 


43 00 


5D 40 


46 


BA 


1A 


41 


70 


00 


8A 60 


8A 


50 


60 


00 


24576 


32K 


SERIES I 
































EDITOR ASSEMBLER 


4A EE 


63 10 


4B 


EA 


18 


23 


70 


00 


88 40 


88 


30 


63 


20 


25376 


32K 


T-BUG 


43 80 


48 24 


43 


A0 


04 


A5 


70 


00 


74 CO 


74 


B0 


60 


00 


24576 


32K 


PROGRAM CONVERSION 


4A F6 


4F 7D 


4A 


F6 


04 


88 


70 


00 


74 A0 


74 


90 


60 


00 


24576 


32K 


DATA CONVERSION 


43 00 


45 25 


43 


00 


02 


26 


70 


00 


72 40 


72 


30 


60 


00 


24576 


32K 


IN MEMORY-INIT 


43 80 


47 8C 


43 


80 


04 


0D 


70 


00 


74 20 


74 


10 


60 


00 


24576 


32K 


IN MEMORY-RETREV 


43 80 


4B 8C 


43 


80 


08 


0D 


70 


00 


78 20 


78 


10 


60 


00 


24576 


32K 


IN MEMORY-SORT 


43 80 


46 DE 


43 


80 


03 


5F 


70 


00 


73 70 


73 


60 


60 


00 


24576 


32K 


TERM 


50 00 


50 BF 


50 


00 


00 


CO 


70 


00 


70 E0 


70 


DO 


60 


00 


24576 


32K 


ELIZA 


50 00 


78 00 


50 


00 


28 


01 


78 


20 


A0 40 


A0 


30 


78 


10 


30736 


32K 


TALKING ELIZA 


46 00 


7C 00 


46 


00 


36 


01 


7C 


20 


B2 40 


B2 


30 


7C 


10 


31760 


32K 


MICRO MOVIE 


43 00 


4C FF 


43 


00 


0A 


00 


70 


00 


7A 20 


7A 


10 


60 


00 


24576 


32K 


MICRO MUSIC 


43 00 


49 70 


43 


00 


06 


71 


70 


00 


76 90 


76 


80 


60 


00 


24576 


32K 


MICRO MARQUEE 


4A 00 


4F FF 


4B 


00 


06 


00 


70 


00 


76 20 


76 


10 


60 


00 


24576 


32K 


INVASION FORCE 


50 00 


71 00 


50 


00 


21 


01 


71 


20 


92 40 


92 


30 


71 


10 


28944 


32K 


CHECKERS-80 


50 00 


77 00 


50 


00 


27 


01 


77 


20 


9E 40 


9E 


30 


77 


10 


30480 


32K 


PYRAMID 


43 00 


7F FE 


43 


00 


3C 


FF 


80 


20 


BD40 


BD 


30 


80 


10 


32784 


32K 


RAAKA-TU 


43 00 


7F FF 


43 


00 


3D 


00 


80 


20 


BD40 


BD 


30 


80 


10 


32784 


32K 


HAUNTED HOUSE 


42 E9 


4F FF 


42 


E9 


0D 


17 


70 


00 


7D 30 


7D 


20 


60 


00 


24576 


32K 


SNDFLR 


43 5E 


4E A0 


43 


5E 


0B 


43 


70 


00 


7E 60 


7E 


50 


60 


00 


24576 


32K 


ASTROLOGY 


43 00 


7F FF 


43 


00 


3D 


00 


80 


20 


BD40 


BD 


30 


80 


10 


32784 


32K 


PADDLE PINBALL 


50 00 


74 C1 


60 


B0 


24 


C2 


75 


00 


99 E0 


99 


DO 


74 


DO 


29904 


32K 


FLYING SAUCER 


42 EA 


4F FA 


42 


EA 


0D 


11 


70 


00 


80 30 


80 


20 


70 


00 


28672 


32K 


TAPE SCRIPSIT MI 


43 00 


69 C5 


43 


00 


26 


C6 


70 


00 


96 E0 


96 


DO 


69 


DO 


27088 


32K 


TAPE SCRIPSIT Mill 


42 E9 


6C A0 


43 


03 


29 


B8 


70 


00 


99 DO 


99 


CO 


6C 


BO 


27824 


32K 


TINY PASCAL MI 


58 40 


7F FD 


58 


40 


27 


BE 


80 


00 


A7 DO 


A7 


CO 


A7 


DO 


42960 


32K 


PAS32K (32K Tiny Pascal) 


4D 90 


73 C6 


4D 


90 


26 


37 


74 


00 


9A 50 


9A 


40 


73 


DO 


29648 


32K 
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after you loaded your program from disk. 
3. Correct addresses used for DUMP to disk, especially 
the execute address (TRA = xxxx) 
NOTE 
This procedure WILL NOT make Model I-only 
programs (PASCAL, TALKING ELIZA, T-BUG, etc.) 
work on a Model III. Neither will this make your tape 
program use the disk for anything other than being 
able to load the program from it. If the program used 
cassette storage for data before you moved it to disk, it 
will still use cassette for data storage. 

To execute Pyramid from disk at TRSDOS Ready 



Model III Type: 
Model I Type: 



PYRMD <ENTER> 

LOAD PYRMD/CMD <ENTER> 

BASIC2 <ENTER> 

<ENTER> 

SYSTEM <ENTER> 

/48432 <ENTER> (Decimal 

equivalent of MENTRY from the 

table. ) 




Computer Customer Services 
Address and Phone Numbers 

8AM to 5PM Central Time 

Computer Customer Services 

400 Atrium, One Tandy Center 

Fort Worth, Texas 76102 

Model I/III Business Software 

Outside Texas 1-800-433-5641 

In Texas 1-800-772-5973 

Model II Business Software 

Outside Texas 1-800-433-5640 

In Texas 1-800-772-5972 

Education Software 

Outside Texas 1-800-433-1679 

In Texas 1-800-772-5914 

All Other Calls Related to Computers 

Outside Texas 1-800-433-1679 

In Texas 1-800-772-5914 

Switchboard— 1-81 7-390-3583 



"CLEAR" 



(This article originally appeared in the Radio Shack Computer 
Center Newsletter in Rochester, New York.) 



The TRS-80 stores string information in a special area in 
RAM memory called "string storage." When you turn your 
computer on, this space is initially set to 50 bytes. That is, 
space is reserved to store 50 characters. If you begin using 
many strings, or a string longer than 50 characters, you will 
see an "OS" error which means "Out of String space," or "Oh 
Shucks!" When this happens, of course, you simply reserve 
more string space by adding "CLEAR n" to your program. 
(The "n" is a number which indicates how many bytes of 
memory you wish to set aside for strings). Everybody knows 
that! But not everyone is aware of the full effect of CLEARing 
string space. 

CLEAR does more than just reserve space. It also erases 
all the variable names that you have used in the program up 
to that point by setting all numeric variables to and all string 
variables to null. That means that CLEAR should be used 
very early in the program, preferably in the very first line. You 
can NOT say CLEAR in the body of your program anytime 
you happen to think of it. You will erase all your data if you do! 
Consult your Level II manual, page 4/4. See the Model III 
manual pages BA 2/2, 4/4, 5/1 . Model II users should look at 
the BASIC section of their manual at page 3/22. 

But that is not all that CLEAR does. CLEAR also nullifies 
the effect of any DIMension statements and DEFine state- 
ments. As an example, let us suppose that you need to use 
the extra accuracy of double precision numbers in your 
program, and you intend to build an array with 100 double 
precision numbers in it. Here is what you (mistakenly) write: 

10 CLS: DEFDBL A,B: DIM A(100) 
20 CLEAR 500 

Now, when your program RUNs you will be surprised to 
find that the numbers are not accurate. Furthermore, your 
array will not hold 1 00 numbers as you expected, but only 1 0, 
and your program crashes with a "BS" error. CLEAR caused 
the problem. The effect of the CLEAR in line 20 is to cancel 
the DEF and DIM statements in line 10 as if that line did not 
exist. The cure? Simply write CLEAR 500 as the first state- 
ment in line 10 and eliminate line 20. 

Furthermore, loading and running a new program does 
not restore string storage to 50 bytes unless you have a 
CLEAR statement in the program which specifically does just 
that. Thus if you load a program early in the day which 
reserves 10,000 bytes for string storage, that area remains 
reserved until you CLEAR it again or turn off the computer. 
Later attempts to load a long program may cause an "OM" 
error ("Out of Memory" or "Oh My!") which will lead you to 
believe that your computer needs repair. Actually, all it needs 
is for you to type in CLEAR 50. 

On the Model II TRS-80 and the Color Computer, 
CLEAR can also be used to reserve areas in RAM memory 
for other purposes. For example: 

10 CLEAR 100, 32000 

sets string space to 1 00 bytes and specifies 32000 as the 
highest memory address which BASIC can use to run your 
program. Memory above this address will not be changed by 
BASIC and you may use this area to store a machine lan- 
guage program. 

Carefully check programs which you copy from maga- 
zines and other sources. You sometimes see the CLEAR error 
made. Now is it all CLEAR? 
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CompuServe 



Shop-at-Home Now 
CompuServe 

With Comp-U-Star, Shopping May Never Again be the Same 




Editor's Note: The CompuServe Information Service is one of 
the largest information and entertainment services available 
to owners of personal computers and computer terminals. 
With each issue of TRS-80 Microcomputer NEWS, various 
features of CompuServe will be discussed. The CompuServe 
Information Service is sold at Radio Shack stores nationwide 
and in Canada. 

For the past eight years, nearly anyone with a telephone 
has been able to dial a number and order merchandise of just 
about any imaginable type, make or model at discounts from 
10 to 40 percent. Ohce ordered, this merchandise, from 
crystal to television sets, would then be delivered to their 
door. All of this was through the efforts of a Stamford, 
Connecticut-based company called Comp-U-Card. 

Comp-U-Card is now available on the CompuServe 
Information Service, enabling CompuServe customers, with 
the aid of their personal computers, to "scan" the pages of 
the ultimate catalog, Comp-U-Star. "It's a premier electronic 
shopping service," remarks Kirk Shelton of Comp-U-Card, 
developers of the Comp-U-Star service. 

Comp-U-Star allows customers to purchase from a se- 
lection of more than 30,000 items without ever bothering to 
set foot outside their front door. 

HOW DOES IT WORK? 

"Comp-U-Star is really an interactive electronic shop- 
ping service. It consists of a database of consumer products 
which allows a customer to either access an individual item 
by specifying make and model or to 'shop' in the database by 
describing the product by its various characteristics," ex- 
plains Shelton. 

After logging into the CompuServe Information Service 
and selecting Comp-U-Star, a customer can check the price 
and features of a specific item. He can also enter a model 
name and receive detailed information about the item. 
Comp-U-Star gives the manufacturer's suggested retail price 
as well as the Comp-U-Star member price. 

By asking about several different products in the same 
category and using the prices and features as guidelines, a 
shopper can choose the item best suited to his needs at the 
most reasonable price. 

For those uncertain of particular makes and models, 
Comp-U-Star allows the user to present generic characteris- 
tics only. It will then search through its database and present 
all the items that fit those specific characteristics. 

For a yearly membership fee plus CompuServe's stan- 
dard connect charge, shoppers are able to check out the 
latest merchandise from a selection that spans 18 different 
categories. Shelton says merchandise on Comp-U-Star is 



offered through cooperation with a network of vendors that 
sell only brand name goods. When merchandise is ordered 
through Comp-U-Star, it is shipped in factory-sealed cartons 
and includes a full warranty. 

Items may be paid for by check or major credit card. If a 
purchase price is particularly large, Shelton said that pay- 
ments may be spread among more than one credit card. This 
is helpful for people who want to charge an item but are faced 
with a ceiling on individual credit cards. 

What does the future hold for Comp-U-Star and its cus- 
tomers? Well, believe it or not, shoppers may never again 
have to haggle with car dealers for the best price on a new 
car, because Comp-U-Star will soon offer automobiles. And 
with the cost of "getting around" continually going up, Comp- 
U-Star will make you think twice about driving from one retail 
outlet to another to do your comparative shopping. 

Comp-U-Card on CompuServe. Why leave home if 
you've got it? 

CompuServe ALSO AVAILABLE VIA DATAPAC IN 
CANADA 

The CompuServe Information Service is available to 
owners of personal computers and computer terminals 
through Radio Shack stores in Canada. 

Using a personal computer or terminal, a telephone and 
a Western Electric compatible 212 modem or coupler, sub- 
scribers in Canada can now access CompuServe's informa- 
tion via the Datapac telecommunications network. 

The standard CompuServe fee for service is $5 per hour 
weekday evenings, all day weekends and holidays. There is 
an additional communications surcharge of $1 2.50 per hour 
for 300 baud rate. 

Canadian customers can take advantage of the full 
range of services on CompuServe including the latest news 
from major newspapers and a national U.S. wire service, 
corporate stock and commodities trading information, home 
banking, electronic mail and real-time communications, com- 
puter games, family information and computing power for 
programming activities. 
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Phone Numbers for Accessing 

CompuServe In Canada 

British Columbia 

Kamloops 604/374-5941 

Kelowna 604/860-0331 

Nelson 604/354-441 1 

Prince George 604/564-4060 

Terrace 604/635-7221 

Vancouver 604/683-871 1 

Victoria 604/388-9300 

Alberta 

Calgary 403/264-9340 

Edmonton 403/420-0185 

Fort McMurray 403/791-2884 

Grande Prairie 403/539-5990 

Lethbridge 403/329-8755 

Medicine Hat 403/526-6587 

Red Deer 403/343-7200 

Saskatchewan 

Moose Jaw 306/693-761 1 

Regina 305/565-0111 

Saskatoon 306/665-6660 

Manitoba 

Brandon 204/725-0878 

Winnipeg 204/475-2740 

Ontario 

Barrie 705/737-4100 

Brampton 416/791-8900 

Brantford 519/756-0000 

Chatham 519/354-7710 

Clarkson 416/823-6000 

Cornwall 613/938-9700 

Gait 519/622-1714 

Guelph 519/836-7930 

Hamilton 416/523-6800 

Kingston 613/549-7720 

Kitch.-Waterloo 519/579-0009 

London 519/679-7500 

Niagara Falls 416/357-2702 

North Bay 705/476-3900 

Oshawa 416-579-8920 

Ottawa 613/567-9100 

Peterborough 705/748-6940 

St. Catherines 416/688-5620 

Sarnia 519/336-9920 

Sault Ste. Marie 705/942-4690 

Sudbury 705/673-9602 

Toronto 416/868-4000 

Windsor 519/255-1000 

Woodstock 519/485-5220 

Quebec 

Granby 514/375-1240 

Jonquiere 418/545-2272 

Montreal 514/878-0450 

Quebec City 418/647-4690 

St. Hyacinthe 514/774-9270 



Sherbrooke 819/566-2770 

Trois Rivier 819/566-2770 

New Brunswick 

Fredericton 506/454-9462 

Moncton 506/854-7078 

Saint John 506/693-7078 

Nova Scotia 

Halifax 902/425-6931 

902/539-7010 

Prince Edward Island 

Charlottetown 902/569-3391 

Newfoundland 

St. John's 709/726-4920 

Questions and comments about the CompuServe 
Information Service can be sent to Richard A. Baker, Editorial 
Director, CompuServe Information Service, 5000 Arlington 
Centre Blvd., P.O. Box 20212, Columbus, Ohio 43220 or 
through Feedback, main menu item 5, CompuServe User 
Information. 



acing In 

ervicp 



formation 



Los Angeles, CA— Racing Information Systems (RIS) is 
one of the many information providers on the CompuServe 
Information Service. RIS, based in Hollywood, provides mo- 
torsports information to the many CompuServe subscribers 
through easily accessed menu pages. Point standings in 
NASCAR, IMSA, SCCA, and Formula One auto racing, infor- 
mation on who to contact for tickets to various motorsports 
events, sources of free films for sports car clubs, and the 
Motor Racing News and Notes column written by Michael F. 
Hollander of RIS are among the information provided.. 

This column provides insight into the world of motor- 
sports and with the immediacy of the CompuServe connec- 
tion, subscribers can find out what is happening to auto, 
motorcycle, boat, and airplane racing days or even weeks 
before they can read about it in magazines or newspapers. 
Working with the staff of ON TRACK Magazine, RIS has 
access to some of the finest motorsports journalists in the 
country for its databases. 

Motor racing is the first sport to have its own database on 
CompuServe. The database provides more information than 
the racing fan can get from his local radio or television station. 
By simply going to page RIS-1 on the information service, the 
racing fan is presented with a myriad of choices of informa- 
tion in the racing scene. For information on how to subscribe 
to CompuServe, see your local Radio Shack store or dealer. 

For more information on RIS, send mail to : 
Racing Information Systems 
2401 Micheltorena Street 
Los Angeles, CA 90039 
or call (213) 667-1589 

Electronic mail may be sent to 70001,557 on 
CompuServe. 



TRS-80 Microcomputer News, March 1982 



15 



Dow Jones 



Weather Information on Dow 
Jones 



"Pickles?" (Couple going over "laundry list") 

"Check" 

"Mustard?" 

"Check" 

"My down coat?" 

"Oh Phil, you will not be needing that. I heard on the 
1 1 :00 news last night that game time temperatures will be in 
the low 50's." 

"Madge, you know you turned the set off after Dallas. 
Besides, we need the weather report for Boston, not New 
Haven. Let us ask George." 

"George? When did he become a weatherman?" 

"Thanks to the DOW JONES NEWS/RETRIEVAL® 
Service, George can furnish us with updated weather infor- 
mation from United Press International." 

"Really? Show me how, Phil." 

Moments later . . . 



EASTERN CITIES ' 

TEMPERATURE RANGES COVER THE 
24-HOUR PERIOD ENDING AT 7 A.M. 
. CST MONDAY. THE FORECAST IS 
FOR THE NEXT 24-HOUR PERIOD. 

CI TV HIGH LOW FORECAST 

BUFFALO - 3 -7 SNOH 
HARTFORD 14 2 WINDY 
NEW YORK 15 IB PTCLDY 

-MORE 
PHILADELPHIA 13 2 HINDV 
HTHR i/ii/82 PUB ENDS AT 118 

PITTSBURGH 3 -9 SNOH 

PORTLAND, HE. 13 -3 SNOH 

PROVIDENCE 18 1 HINDY 

WASHINGTON 8 2 PTCLDY 
-END- 



WEATHER TABLES FOR THE MOST RECENT 24-HOUR 
PERIOD 

These tables provide an accurate weather picture for the 
current day for dozens of major U.S. and foreign cities, 
broken out by geographic region. 



TEMPERATURE TABLES 



EASTERN CITIES 
SOUTHEASTERN CITIES 
MIDWEST CITIES : 

SOUTHWESTERN CITIES- 
FAR WESTERN CITIES 
EUROPEAN CITIES . 
ASIAN CITIES 

MIDEAST & AFRICAN CITIES 
LATIN AHERICfiN- CITIES 

TEMPERATURE TABLES 



Included in the tables are forecasts by city showing the 
city name, the high and low temperatures from the previous 
day and the predicted current day weather conditions. 



NATIONAL WEATHER FORECAST 

This regional summary provides weather predictions for 
the current day for the United States. 



Wondering what to pack for that sales meeting in 
Seattle? Or the one-day whirlwind tour of the Midwest? An 
umbrella? A sweater? An overcoat? Dressing for the occa- 
sion often has more to do with the weather than it does with 
fashion. Find out weather conditions fast by checking the 
new Weather Report data base from the Dow Jones News/ 
Retrieval Service. It is quick! It is easy! 

In an effort to bring Radio Shack customers an ever-ex- 
panding package of news and information, Dow Jones is 
happy to announce an exciting new feature — weather con- 
ditions and forecasts for at least 50 major cities. The data 
base includes: 

1 . Temperature Tables 

2. National Weather Forecast 

3. National Weather Wrap-Up 



• HTHR. -19/13/81 . ' 

NATIONAL FORECAST FOR TUESDAY 
BY UPI 

SCATTERED SHOWERS AND 
THUNDERSTORMS WILL PREVAIL OVER 
THE ATLANTIC COAST, THE GULF 
COAST AND ACROSS. THE OHIO VALLEY 
AND LOWER GREAT LAKES 
WEDNESDAY. 

WIDELY SCATTERED SHOWERS' AND 
THUNDERSTORMS ARE EXPECTED OVER 
THE NORTHERN ROCKIES AND 
ARIZONA. 

SUNNY SKIES HILL PREVAIL FROM 
THE UPPER MISSISSIPPI VALLEY TO 

NATIONAL WEATHER FORECAST 
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NATIONAL WEATHER WRAP-UP 

A summary of the previous day's major weather devel- 
opments across the United States by geographic region. 

All of this valuable weather information, which is fur- 
nished by United Press International, is updated twice daily 
Monday mornings through Friday afternoons. 

Be prepared ... get a fast weather report for your travel 
destination on the Dow Jones News/Retrieval Service! 



NATIONAL HRAP-UP: MONDAV 
BVUPI 

TROPICAL STORH DENNIS 
LINGERED NEAR THE SOUTHERN 
ATLANTIC COAST THURSDflV MORNING. 
THREATENING THE CAROL INAS WITH 
HEAVV RAINS, HIGH WINDS AND 
FLOODING. THE STORM LEFT NEARLV 
SIX INCHES OF RAIN IN 
CHARLESTON, S.C. WEDNESDAY. 

THE STORM MOVED ALONG TO SEA 
OFF THE GEORGIA COAST WEDNESDAY 
AND PUSHED HIGH WINDS FROM 
FLORIDA TO SOUTHERN MARYLAND. 
THUNDERSTORMS MOVED ALONG THE 
GULF COAST. INTO SOUTHERN TEXAS. 

NATIONAL WEATHER WRAP-UP 



THE COST 

The usage rate for the Weather Report data base is the 
same as our regular news data. (See your Dow Jones 
Radio Shack price list for details.) 

HOW TO GET THE WEATHER REPORT 

To enter this data base on the Dow Jones News/Retrieval 
Service, type two slashes, WTHR and press the < ENTER) 
key. 

/ / WTHR 
< ENTER) 
Here is what you will see: 



NEWS/RETRIEVAL HEATHER 
■(C) DOW JONES AND CO. INC. 
TUESDAY, OCT. 13, 1981 

THIS DATA BASE, ASSEMBLED 
FROM THE HIRES OF UNITED PRESS 
INTERNATIONAL OFFERS WEATHER 
CONDITIONS FOR SELECTED CITIES. 

PRESS FOR . 

1 NATIONAL FORECAST: TUESDf 

2 HEATHER WRAP-UP : MONDAY 

3 TEHPERATURE TABLES 



Select the information you want by pressing the CODE 
NUMBER followed by the <ENTER> key. 

Notes 

The following commands will assist you in moving about 
the data base: 



1. To go forward to the next page within a section, 
simply press the < ENTER) key. 

2. To go back to the previous page within a section, 
press R (for Reverse) followed by the < ENTER) key. 

3. Menu pages are numbered from 0-99. Text pages 
are numbered beginning with 100. You will find the 
page number at the top of each page, showing the 
page you are on and the last page of the section. 

For example, "P103 of 108" means you are on 
page 1 03 of text and that page 1 08 is the end of the 
section. 

To proceed to any page of the data base from 

any other page (forward or back), press P (for Page) 

followed by the page number and the < ENTER) key. 

Example: To view page 105, type: 

P 1 05 

< ENTER) 

4. To return to a previous sub-menu within the data 
base, press M (for Menu) and the < ENTER) key until 
the desired menu page is reached. 

5. For a shortcut back to the Top Menu, press T (forTop) 
followed by the < ENTER) key. 

Be prepared ... get a fast weather report for 
your travel destination on the Dow Jones News/ 
Retrieval Service. 

Dow Jones News/Retrieval Service 
P.O. Box 300 

Princeton, New Jersey 08540 
1-800-257-5114 (in NJ, 609-452-1511) 

Blinking Prompt 
and INKEY$ 

Sal S. Vescera 
Melbourne, FL 

At times, INKEY$ is good for selecting an option. How- 
ever, it can provide some operator confusion. I have found 
that the characters can be made to blink to attract the opera- 
tor's attention. 

Example: 

100 CLS 

110 A$=INKEY$ 

120 PRINT@ 960, "< >ES OR < >0"; 

130 FOR 1=1 TO 20 

: NEXT I 
140 PRINT @ 960,"<Y>ES OR <N>0"; 
150 IF A$="Y" GOTO 180 
160 IF A$<> ,, N" GOTO 110 
170 GOTO 200 
180 PRINT 

: PRINT "YOU PICKED <Y>ES" 
190 END 
200 PRINT 

: PRINT "YOU PICKED <N>0" 

NOTE: Lines 120 and 160 use "PRINT @ 960, 
which also helps. I use it to direct the operator's eyes to the 
same line on the screen for input requirements. 
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VisiCalc 
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Mate tf?e Program Speedier to Set Up and More Useful. 



The VisiCalc program is fast approaching the status of a 
programming language— for people who want to use a com- 
puter, not program it. The enhanced version of the VisiCalc 
program for the TRS-80 Model III includes logical operators 
and a number of new commands which make the program 
far more powerful in handling complex business applications 
than its earlier version. 

At the end of this column, we will have some sample 
work sheets set up which may spark your imagination on how 
to use the new commands and functions in your own VisiCalc 
work sheets. 

BREATHING EASY 

Ever want to get a printed record of the exact formulas 
you use at the row and column cells of your VisiCalc model? 
Now you can, with /SS:P command. 

A printed listing of your formulas might look like this: 

>B3:@SUM(B1 . . . B2) 

>B2:/F$832.25 

>A2:"ITEM2 

>B1:/F$356.95 

>A1:"ITEM1 

As you see, the VisiCalc listing runs from what would be 
the bottom right hand corner of your work sheet to the upper 
left hand corner, and supplies you with all the format, immo- 
bile title or window information you would need to reenter an 
entire model from scratch. (Of course, it is a lot easier to 
reenter it from diskette . . . ) 

Another reason you can breath easier is because of the 
new /E (EDIT) command. What /E does is bring the contents 
of a VisiCalc cell back to the edit line. No longer do you have 
to retype the contents of an individual cell simply to change 
one character. If you wish to perform an @SUM from 
B2. instead of from B3, /E allows changing only the number 
3 to a 2. 

/E Edit - Allows editing of entry position contents. 
Places the contents of the highlighted entry 
position on the edit line. The left and right arrow 
keys (-* and <-) move the edit cue over the 
characters without changing them. The T arrow 
key moves the edit cue to the beginning of the 
edit line; the i arrow key moves the edit cue to 
the end of the edit line. Enter or delete to the left 
of the edit cue. SHIFT-ENTER invokes the Edit 
Command while entering values and labels. 



WHAT IS THE DIF™? 

DIF is a program-independent way of storing data on 
diskette. What this means to the TRS-80 user is that other 
programs which use the DIF storage format may be able to 
read their data from the same storage diskette the VisiCalc 
program uses. 

More immediately, it means that you have a way of 
"consolidating" or combining VisiCalc work sheets— such as 
summing up the profit & loss statements of several branch 
offices. 

For example, store the "bottom line" (net profit) from 
each of five branch offices in DIF format. The data from these 
bottom lines may be brought back into another VisiCalc work 
sheet— anywhere on that work sheet. If you so choose, you 
may bring back that row of bottom lines as a column. After 
you have brought back your set of bottom lines, you may sum 
them, average them or do any other VisiCalc modeling with 
the data. 

DIF can store rectangular areas of VisiCalc work sheets, 
too. You may reorient them just as easily. 

One thing to remember is that the DIF stores VisiCalc 
data, not VisiCalc formulas. The numbers — and labels — 
stored in DIF are stored as they appear on the VisiCalc sheet, 
not as the formulas which appear at the top of the screen. 

VisiCalc is now supplied with the "Programmer's Guide 
to the DIF," for those technically inclined users who wish 
to become involved with the fundamentals of programming 
with DIF. 

NEW OPERATORS 

How often have you wanted to set up a VisiCalc model 
and said to yourself, " If A4 is less than 6000, then I would like 
B4 to be 10000 . . . "? Now you can. 

The VisiCalc program now has logical functions 
(Booleans) and arithmetic comparison operators: TRUE, 
FALSE, AND, OR, IF and the symbols for greater than ">", 
less than " < ", equal to " = ", not equal to " <> ", and combina- 
tions such as "greater than or equal to." The new operators 
make it easy to set up such applications as bonuses for 
attaining sales figures, breaks in interest rates or to help in 
figuring buy and sell points for portfolios. 

The new logical functions can result in extremely flexible 
VisiCalc models and the logical functions are an important 
addition to the growing list of VisiCalc capabilities. 
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LOGICAL FUNCTIONS 



A 



B 



@AND(i/sO 

@mi,vl,v2) 

©ISERROR(v) 

@ISNA(iO 

@NOT(7) 

@OR(7is/) 



TRUE if all values in list are 
TRUE, otherwise FALSE. 

vl if 1 is TRUE; v2 if 1 is 
FALSE. 

TRUE if v is ERROR; other- 
wise FALSE. 

TRUE if v is NA; otherwise 
FALSE. 

TRUE if 1 is FALSE; FALSE if 1 
is TRUE. 

TRUE if any value in list is 
TRUE, otherwise FALSE. 



©CHOOSE AND ©LOOKUP 

Another powerful new VisiCalc function is ©CHOOSE— 
definitely nothing to sneeze at. The ©CHOOSE function 
complements the ©LOOKUP function, already present in the 
program. ©LOOKUP conducts a search for the closest 
match to the values in a list, then selects and returns the value 
found to the right or below its range. ©CHOOSE, however, is 
an index to the elements in a list. 

SEARCH FUlf CTIONS 

@ CHOOSE Returns the vth element of list, 

(vjist) If v is greater than the number 

of elements in list, NA is 

returned. 

©LOOKUP Compares v to the successive 

(v, range) values in range and returns 

the corresponding value from 
the column or row immediate- 
ly to the right or below the 
entries in range. 

In the argument @CHOOSE(n, list) for example, 
©CHOOSE simply selects the nth element of the list (if n is a 
fraction, ©CHOOSE truncates downward: 2.99 becomes 2). 
This means that depending on the value placed in one 
VisiCalc cell, the program can choose from among a lengthy 
list of values elsewhere without having to approximate or 
match a given value. 

CONVENIENCE TOO 

Two "convenience" features have been included in the 
program. When you type a A/, the program's version number 
appears on the edit line, along with the copyright notice. 

The other convenience feature is the "soft boot." No 
longer must you turn off the computer in order to run another 
program, but now you can type /SQ (Storage Quit) and leave 
the program to return to TRSDOS. 

The new VisiCalc commands and functions dramatically 
enhance the capabilities of the program. 



1) 


Sales 


2) 


Commission 


3) 


Bonus 


4) 


Income 



(Your Input) 

(B1 * .1) 

©IF (B1> 10000,200,0) 

+ B2 + B3 



Has each department met its production quota? 



B 



C 



D 



1) 

2) 


Section 


Quota 


Produced 


Quota Met 


3) 
4) 
5) 
6) 


Nuts 
Bolts 
Pins 
Snaps 


13000 

11550 

530 

6600 


135000 

11500 

5600 

7600 


(C3>B3) 
(C4>B4) 
(C5>B5) 
(C6>B6) 



A quota previously set at B3 through B6 and unit produc- 
tion values entered in C3 through C6 would result in a TRUE 
or FALSE answer in D3 through D6, depending on the suc- 
cess of each section. 



A salesman gets a bonus if his sales are over $1 0,000 or 
if the number of units he sells is over 35 and his total sales are 
over $6,000. 



A 



B 



1) 


Bonus 


2) 


Units 


3) 


Bonus 



(Your Input) 
(Your Input) 
@IF(@OR(B1> 10000, 
@AND(B2>35,B1>6000)), 
200,0) 



Given the day of the month, number of the month and 
year, calculate the number of the day of the year. 



A 



B 



1) 


Day = 


(Your Input) 





2) 


Month = 


(Your Input) 


31 


3) 


Year = 


(Your Input) 


59 


4) 






90 


5) 


Day of the 




120 


6) 


Year 


(formula) 


151 


7) 






181 


8) 






212 


9) 






243 


10) 






273 


11) 






304 


12) 






334 



The formula placed in B6 = 
@CHOOSE(B2,C1 . . . C12) + B1 +@IF(@AND(B2,@INT 
(B3/4)*4 = B3), 1,0) 

The formula also handles leap years other than centen- 
nial leap years. 



Examples of how to use the new VisiCalc features in your 
work sheets: 

A salesman's commission is 10% of sales; but if one 
month he sells over $10,000, he gets a bonus of $200. 
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Peripherals 



Printer Codes Revisited 



You may remember our marathon article last May which 
set forth a concept of printer code structure designed to allow 
for the tremendous growth in printer performance. There was 
a triple mode standard established to support the various 
applications to which modern printers are directed. These 
were the data processing, word processing and graphic 
modes. Last summer we introduced the first machine de- 
signed with these ideas in mind. Line Printer VIII (26-1 168) 
has a data processing (DP.) mode with code response 
matching the expectations of DP. programs. Its word pro- 
cessing (W.R) mode allows use of the printer with programs 
such as SCRIPSITword processors. (Note: SCRIPSIT 2.0 for 
Model II 26-4531 includes certain code features which allow 
tailoring to the LP. VIII). It also responds to bit image graphic 
commands. 

The primary purpose of the article was to establish a 
code response standard which will be uniform from machine 
to machine. This is becoming more and more important these 
days as printers get smarter and programs more complex. 
One thing we don't want to happen is to have programs 
married to one printer. Our goal this month is to refine our 
galaxy of printer codes into a structure which allows program- 
mers to make the best use of our machines without fear of 
"next year's wonder" causing instant obsolescence! 

As much as I hate the proliferation of Roman numerals 
throughout our catalog, (I personally guarantee that there will 
be NO Line Printer IX!) the codes are divided into two-basic 
groups: Level I and Level II. Level I codes are those which 
are common to all printers in each class of Data Processing, 
Word Processing, and Graphic machines. Level II codes are 
in some way unique to certain printers and will require some 
care on the part of the programmer if pitfalls are to be 
avoided. 

There are two points which need to be clarified before we 
proceed much farther. The code standards are not to be 
confused with performance specifications. Not every printer 
need have the capability to respond to every code in the 
standard. Some machines are intended for less demanding 
applications and have a limited capability. A printer designed 
for simple data processing does not have to do the things that 
a printer meant for word processing has to do. In addition, a 
multi-mode printer will have responses required by one 
mode and not needed by another. In addition, a low-cost 
printer might meet only certain minimum responses, leaving 
the total set to more expensive machines. 

The word processing and data processing modes have 
two areas of difference. Only one aspect of response is 
physically different in the two modes; this is the matter of 
action taken upon receipt of line feed codes. In the data 
processing mode, the only code which produces a line feed 
action is the standard LF code (Decimal 10) or the print 
command CR (Decimal 1 3), either of which causes a carriage 
return and line feed. AH other line feed control codes set 



latches in the printer to produce line feeds of various spac- 
ings whenever a line feed action is taken by the printer. 
(Please note that for now questions about the character set 
are not included in the discussion. We will save that for later. 
For now we will be talking about the control code responses 
of printers.) 

On the other hand, in the word processing mode each 
line feed code produces an immediate response in the printer 
according to the code received. Except for this fact, the only 
difference between the two modes is a difference in the 
codes required to be present for each application. 

Now, let's get down to the business at hand. Remember 
Level I codes are common to all printers in each class. If a 
programmer writes using only these codes he can be as- 
sured that his program will work on all Radio Shack printers 
so designated. Until recently, Dot Matrix printers were 
intended entirely for data processing functions. All 
Radio Shack printers of this type include Level I code re- 
sponse. (NOTE: Refer to the May article for a detailed de- 
scription of discrepancies in some early machines which 
affect some aspects of line feed response. If the user of these 
machines runs the utility LPC with his applications, these 
differences will be transparent to this discussion.) 

The following chart outlines Level I Data processing 
codes: 



HEX 


DEC 


SYMBOL 


DESCRIPTION 


0A 


10 


LF 


Execute CR/LF 


0D 


13 


CR 


Execute CR/LF (Print Com- 
mand) 


1B36 


27 54 


ESC 6 


Select 6 LPI (Power up de- 
fault) 


1B38 


27 56 


ESC 8 


Select 8 LPI 




This list looks rather limiting at first glance, but in fact 
most DP. programs require little of the printer but to lay out 
line after line of "data"— i.e., facts and numbers. 

The list of codes for Word Processing is longer because 
W.R requires more of the printer. Level I W.R codes are as 
follows: 
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HEX 


DEC 


SYMBOL 


DESCRIPTION 


For now, I will discuss the codes grouped according to 


0A 

1B0A 
1B38 
1B 1C 


10 

27 10 
27 56 
27 28 


LF 

ESC LF 
ESC 8 
ESCFS 


Execute Ve" FWD LF 
Execute Ve" REV LF 
Execute Ve" FWD LF 
Execute V12" FWD LF 


function. Later I can regroup them all together in number 
order. Printers which are multi-mode will have to have com- 
mands which select this mode of operation. 


1B 1E 
0D 


27 30 
13 


ESC RS 
CR 


Execute V12" REV LF 
Execute CR/LF 


HEX DEC SYMBOL DESCRIPTION 


08 n 
1B n 


08 n 
27 n 


BS n 
ESC n 


* Backspace (value) 

* Incremental space (1-9) 


12 18 DC2 Select graphics mode 

13 19 DC3 Select D. P. mode 

14 20 DC4 Select W.P. mode 



This list includes the responses needed to allow back- 
spaces, sub- and super-scripts, and simple right justification 
of texts. All Radio Shack word processing printers (LP IV, 
VIII, W.P.50, and D.W.II) execute these codes correctly. Only 
LP IV and VIII actually implement the BS n syntax. For the 
other printers the value "0" can be used as this null code is 
not transmitted by printer drivers. (* Please note the asterisks 
here. This symbol will mark any code which is in some way 
printer dependent). Properly constructed programs will allow 
some kind of action to initialize the program to fit the printer in 
use. This could be in the form of user definable defaults, 
built-in look-up tables, etc. 




Many of the Level II codes require associated values 
which can depend entirely upon the printer's mechanical 
features. The number of dot columns in each character 
sometimes changes from pitch to pitch in the same printer. 
Values for proportionally spaced characters can also vary 
from machine to machine. 

Level II codes then are those codes which can give 
associated value differences. Many of them are optional and 
are not to be found in all machine^. 

Other machines also bear burdens of the past: There are 
some conflicts in response in early Radio Shack printers. 
Codes for these actions are fixed for the future, but unless 
special care is taken programs written using these codes will 
not function with some printers sold in the past by 
Radio Shack. We will always try to identify these areas of 
conflict and one of the goals of the May Newsletter article was 
to do just that. Much of that information will bear repeating in 
this context. 

Remember some Level II codes have printer unique 
associated values. Others are optional because of printer 
design, type, or application. Others, while uniform for current 
and future printers are in conflict with past machines. Future 
printers will follow these standards. If they are built to perform 
described functions, the code required is established. New 
functions will use new codes which are currently unassigned. 
We will do our best to structure printer enhancements so they 
do not interfere with programs currently being written. Proper 
and careful use of Level II codes will enable you to build 
programs which get the most out of the wide array of printers 
offered by the Shack. 



Note that if, for instance you are already in DP mode, the 
repetition of DC3 is ignored. 

The question of pitch selection is problematical. Of 
course, dot matrix printers can change pitch at will— all under 
software control. On the other hand a Daisy Wheel printer can 
completely change pitches only with manual operator inter- 
vention (to change the wheel!). Pitch changes can also get 
you in lots of trouble. A change in letter spacing changes the 
number of characters in a line (or the line length). This can 
play havoc with justification schemes or fancy report formats. 
Unfortunately it is this area which has the greatest number of 
code conflicts. Used wisely, however, changes in print densi- 
ties can produce greater impact and reader understanding in 
a printout. 

Daisy Wheel II has three codes to select the pitches 
which correspond to the wheels first available: 10 CPI, 12 
CPI, and PS (proportional space). The printer also has a 
manual switch to accomplish this which is ignored once the 
pitch is set by software. Since manual intervention is required 
to complete any pitch change, most programs will leave pitch 
changes to the operator. 

The pitch change codes for Daisy Wheel printers: 



HEX 


DEC 


DESCRIPTION 


1B0E 


27 14 


Vie space set (1 2 cpi) 


1B0F 


27 15 


V10 space set (1 cpi) 


1B 11 


27 17 


PS space set 



NOTE: The # sign will be used to signify a code conflict 
lurking in the past. Refer again to the May printer article. 
The pitch change codes for dot matrix printers are: 



HEX 


DEC 


SYMBOL 


DESCRIPTION 


1B 11 


27 17 


ESC DC1 


Select proportional charac- 
ters 


1B 13 


27 19 


ESC DC3 


Select 10 CPI (Normal ma- 
trix) characters 


1B 14 


27 20 


ESC DC4 


# Select condensed charac- 
ters (normally used to 
produce 132 col in 8" line) 



Additional codes will be added as additional fonts are 
added in Dot Matrix printers. 

One of the great advantages of a dot matrix printer is the 
great flexibility it offers. One can do all kinds of pitch and font 
changes so easily! Certain fonts (sets of characters) can 
easily be manipulated in several ways— elongation, under- 
line, bold, etc. These codes are listed below: 



HEX 


DEC 


SYMBOL 




DESCRIPTION 


1B0E 


27 14 


ESC SO 


# 


Start elongation 


1B OF 


27 15 


ESC SI 


# 


End elongation 


1B 1F 


27 31 


ESC US 




Start BOLD 


1B 20 


27 32 


ESCSP 




End BOLD 


0E 


14 


SO 




End underline 


0F 


15 


SI 




Start Underline 
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Current standards support simple bit image control of 
dot matrix printers. When in graphic mode, the seven LSB 
(Least Significant Bits) of 8-bit data words are used to control 
the firing of seven pins of the head. There are a number of 
associated commands. (Note: the line feed spacing is auto- 
matically set in the printer to accomplish continuous vertical 
lines.) 



HEX 


DEC 


SYMBOL 


DESCRIPTION 


0A 


10 


LF 


Forward LF 


0D 


13 


CR 


CR/LF 


1E 


30 


RS 


End graphics and return to 
previously established 
char, status 


1C n m 


28 n m 


FS n m 


Repeat data pattern 


1B0E 


27 14 


ESC SO # 


Start elongation 


1B0F 


27 15 


ESC SI # 


End elongation 


1Bf0nm 27 16nm 


ECS POS n m 


Dot column addressing 


There we have it. Lots of codes 


lots of printers. In case 


you got lost, here (in one place) are all the codes which we 


now support in our 


printers. 




CHART 








HEX 


DEC 


SYMBOL 


DESCRIPTION 


00 


00 


NUL 


Ignored 


01 


01 


SOH 


Ignored 


08 n . 


08 n 


BSn 


* Back Space 


0A 


10 


LF 


Line Feed 


0D 


13 


CR 


Carriage Return 
(Print Command) 


0E 


14 


SO 


End Underline 


0F 


15 


SI 


Start Underline 


12 


18 


DC2 


Bit Image Set 


13 


19 


DC3 


DP Mode Set 


14 


20 


DC4 


WP Mode Set 


1B01-09 


27 01-09 


ESC n 


* Incremental 
Space 


1B0A 


27 10 


ESC LF 


Full Reverse LF (6 Ipi) 


1B0E 


27 14 


ESC SO 


# Start Elongation 


1B0E 


27 14 




Set D.W. to 10 cpi 


1B0F 


27 15 


ESC SI 


# End Elongation 


1B 0F 


27 15 




Set D.W. to 12 cpi 


1B 10 n1 


n2 27 16 n1 


n2 ESC POS n1 nS 


Dot Positioning 


1B 11 


27 17 


ESC DC1 


Proportional Set (D.M 
and D.W) 


1B 12 


27 18 


ESC DC2 


Reserved for future use 


1B 13 


27 19 


ESC DC3 


Standard Set 


1B 14 


27 20 


ESC DC4 


# Condensed Set 


1B 15 


27 21 




Enable C/R only (DWII) 


1B 16 


27 22 




Enable C/R LF (DWII) 


1B 18 


27 24 




Enter EPM (DWII) 


1B19 


27 25 




Exit EPM (DWII) 


1B 1C 


27 28 


ESC FS 


Half Forward LF (12 Ipi) 


1B 1E 


27 30 


ESC RS 


Half Reverse LF(12 Ipi) 


1B 1F 


27 31 


ESC US 


Start Bold 


1B20 


27 32 


ESCSP 


End Bold 


1B33 


27 51 


ESC 3 


1/36 Forward LF 


1B36 


27 54 


ESC 6 


Full Forward LF (6 Ipi) 


1B38 


27 56 


ESC 8 


3/4 Forward LF (8 Ipi) 


1C n1 n2 


28 n1 n2 


FS n1 n2 


Repeat Data 


1E 


30 


RS 


End Bit Image 


7F 


127 


DEL 


Ignore 


FF 


255 


DEL 


Ignore 


Other 02- 


1 F Other 02 - 


31 


Invalid Code 


Other 80 - 


9F Other 128 


- 159 


Invalid Code 



Line Printer VIII and all future Dot Matrix printers will 
print a "blob" ( X ) upon receipt of an invalid code. Refer to 
our printer manuals for additional information. 

We will do our best to keep Murphy out of our code file. 
As our printers get smarter, we will just have to run a little 
harder to stay ahead of them. Good luck . . . and lots of good 
printouts. 



Computer Camp for 
Diabetic Children 



In addition to their regularly scheduled sessions*, the 
National Computer Camp™ recently announced a one week 
computer camp designed for children and adolescents with 
diabetes mellitus to be held in August, 1982, in Simsbury, 
Connecticut. 

CAMP OBJECTIVES 

First, the camp is designed to give campers the opportu- 
nity to learn computer programming in a setting where the 
health care needs of the diabetic are assured. Secondly, the 
learning experiences are designed to evaluate and develop 
computer programs that illustrate the interaction of exercise, 
diet composition, and insulin treatment in the diabetic. 

MEDICAL SUPERVISION 

While diabetic control of the children will be monitored by 
the methods used by the individual at home, great emphasis 
will be placed on home blood glucose monitoring. All physi- 
cal activities at the camp will be supervised by physical 
education instructors and monitored by the medical staff. 

Medical support for the camp will be provided by the 
members of the division of Pediatric Endocrinology and Dia- 
betes at the University of Connecticut. At least one physician 
and one nurse will be present at the camp at all times. 

Any patient requiring hospitalization or emergency care 
will be treated at the John Dempsey Hospital which is within 
ten miles of the camp. 

FOR MORE INFORMATION 

For educational information contact Dr. Michael Flaks 
(1-203-795-3049). For Medical Information contact the Divi- 
sion of Pediatric Endocrinology at the University of Connecti- 
cut Health Center (1-203-674-2221). In addition, you may 
also write to National Computer Camp, P.O. Box 624, 
Orange, CT 06477. 

The regularly scheduled camps in Simsbury, Connecti- 
cut and Atlanta, Georgia, will be held July 11 through 
August 6. 
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Model I/III 



Desktop/Plan -80 

Sophisticated Business Forecasting for TRS-80 Model III 



Like its sister software, the VisiCalc program, the recently 
introduced Desktop/Plan-80 (26-1594) performs business 
forecasting tasks by allowing the user to set up and execute a 
financial model. 

While the two programs seem to invite surface compari- 
sons, they differ greatly in their approach to the computer and 
the art of forecasting. Where VisiCalc software is quick and 
flexible like a word processor, able to perform engineering 
calculations or statistics4n many formats— as well as financial 
analysis— Desktop/Plan-80 software is deliberate, highly 
structured and specifically designed for financial modeling. 

Desktop/Plan-80 is a "menu-driven" program which per- 
forms its operations on files of information, much in the man- 
ner of the time-shared financial analysis programs on which it 
was modeled. As such, it provides for consolidation of finan- 
cial models, transferring individual line items from model to 
model and the ability to incorporate in its models calculations 
programmed by the user. The program may receive (receive 
only) data from a /PD VisiCalc file for printout in Desktop/ 
Plan-80 format. 



DESKTOP/PLAN-80 
DATE 81/15/82 

1. ENTER OR MODIFV MODEL DEFINITION FILE 

2. ENTER, MODIFV, OR DISPLAY .VALUES FILE 

3. ENTER OR MODIFV CALCULATION RULES FILE 
4 EXECUTE CALCULATION RULES 

5. PRINT REPORTS ROUTINE 

6 CONSOLIDATE/SUMMARIZE FILES 

7 SET SVSTEM PARAMETERS 
8. RETURN TO TRSDOS 



ENTER NUMBER FOR FUNCTION DESIRED 
TVPE 'END' TO RETURN TO BASIC 



build the description file of your model, enter your initial 
planning values, enter the calculations and where you wish 
them performed, "execute" the model you have constructed 
or print the values which have been calculated by that 
execution. 

Each of those tasks (except printing) creates a file on 
your data disk. Remember that the Desktop/Plan-80 pro- 
gram performs its calculations on files of information. Be- 
cause of this, you can create a number of different planning 
value files, or different calculation files and "mix-and-match" 
them at execution time. 

MODEL DESCRIPTION 

The Desktop/Plan-80 program produces what is known 
as a "vertical model"— a maximum of 100 line items (100 
rows) by a maximum of 18 columns of figures. The 18 col- 
umns allow the representation of twelve months, four quarter 
summations, a percent of total column (or semi-annual total) 
and an annual total. 

You build your model description by telling the program 
how many rows and columns you intend to use. This is 
important information for two reasons: only identically-sized 
models may be later consolidated, and because when finally 
printed, the printing routine "ignores" those rows of the 
model which do not have a row description. By allowing gaps 
between the rows you leave yourself room to perform in- 
volved step-by-step calculations which can later be traced 
step-by-step. 

Also during the description process, you will write up to 
two lines of column headings, decide on the number of 
decimal places (0, 1 , or 2) and title your report (Jones Com- 
pany, Confidential Sales Projection). 

ENTERING PLANNING VALUES 

Once the model description is complete, you may enter 



A TOUR OF THE PROGRAM 

Financial modeling software takes a minimum of known 
information— costs, rates of change and the like— applies 
calculations to that information in an orderly way, and arrives 
at conclusions about the results of those calculations which 
can then be printed out in a report format. 

Because' Desktop/Plan-80 software makes extensive 
use of the system's printer, the first step after booting the 
program is to configure the system parameters— how many 
characters across printer, length of the paper you are using, 
the name you have given the financial model you are working 
with and the footer message you wish printed at the bottom of 
each page of your model. 

The program's menu presents you with a choice of tasks: 



TOPNOTCH/C FILE 


JAN 


.FEB 


DISPLfiV VALUES 
ASSUMPTIONS [ ( 1 ) 






- 


. . 


< ( 2 ) 


- 




'.'.' ( 3 ) 


- 


- 


( 4 ) 


- 


- 


PRIOR VEAR'S MO ( 5 ) 


213666 


218668 


COMPUTED GROWTH ( 6 ) 


8.6 


8.6 


RETURNS & ALLOW ( 7 ) 


2.8 


2.8 


VARIABLE SELL IN ( 8 ) 


7.8 


7.8 


MATERIAL COST ( ( 9 ) 


47.5 


47.5 


HOURLY LABOR Rfi ( 18 ) 


7.25 


7.25 



MODEL TOPNOTCH/C SIZE IS 78 ROWS BY 13 COLUMNS 
ENTER COLUMN NUMBER TO CHANGE OR DISPLAY (END TO QUIT 
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your initial planning values— assumptions you make for your 
model. For example, in a sales projection, you may assume 
that sales are 100,000 units for January, that draw against 
commission is 20% of total sales or that rent for facilities is a 
fixed cost no matter what the month. 

To make planning value entry easier, ten rows and three 
columns of your model are displayed at a time on the screen 
of the Model III, along with the left-hand titles of each row. 

When finished, your initial planning values are also filed 
away on disk. 

THE CALCULATION RULES 

Once your model description and planning values are 
filed away, you may wish to print them out as a reminder of 
which items are supposed to appear on which rows. Your 
next step is to assign calculation rules. 

In the Desktop/Plan-80 program, calculations are first 
written to a calculation rules file and later performed on entire 
rows or entire columns at a time— rather than instantaneously 
and on screen, as in the VisiCalc program. While you may 
reference an individual row and column intersection, this is 
done only by writing a "custom calculation rule" as provided 
for in the program. We will get to that in a moment. 

You select your calculations from among 20 calculation 
rules supplied by the program. Such calculations as summa- 
tion of a column, subtracting one row from another, multiply- 
ing one column by another and replacing the result in a third 
column; these are the types of rules provided by the 
program. 

As stated above, "blank" areas of your model will not 
print in the final report. However, because the calculation 
rules may be printed by themselves, you can fill those blank 
areas with involved calculations and then retrieve them for 
later study. 

One of the more powerful features of the Desktop/ 
Plan-80 program is the "custom calculation rules." These 
custom rules are for the sophisticated user of the program. 
They are actually BASIC language subroutines which are 
written by the user and later called by the Desktop/Plan-80 
program. Even machine language routines may be written 
and called by a "CALL USR" custom rule. 

When finished, the calculation rules file will contain the 
formulas by which the initial values of your model are trans- 
formed into the computed values of the final report. More 
than one calculation rules file may be constructed, allowing 
for later "mix-and-match". 

EXECUTE AND PRINT YOUR MODEL 

When model description, calculation rules and initial 
planning values are determined to your satisfaction, it is time 
to execute your model. 

Execution uses the three files which you have previously 
created and produces a fourth: the Computed Values File. If 
you have prepared a series of rules files or planning values 
files, you may mix-and-match to create a number of compu- 
ted values files. 

If you have a series of models which are identical— for 
example, the Profit & Loss statements with identical line items 
for a number of branch offices— you may consolidate them 
into a master company-wide model. If you have the depart- 
mental budgets for various departments in your corpora- 
tion— no two of which are precisely the same, as is often the 
case— you may select individual line items from those 



models and combine them into a company budget. Consoli- 
dation and summarization are powerful features of Desktop/ 
Plan-80. 

Printing the computed values file of your model 
produces a professional-quality report which automatically 
configures itself to the size of your printer. Options for printing 
include use of single page or fanfold paper, and number of 
lines per page (usually 66 on 8V2" by 11" paper). 

Each page is automatically numbered, displays up to 80 
characters of title, can display a page footer and will print with 
or without row numbers. 

GRAPHICS 

Report printing is not all of the Desktop/Plan-80 pro- 
gram's printing capabilities. On a Radio Shack printer, it will 
also print out an X-Y graph from any two line items. The 
printing is performed using ASCII characters, so no special 
graphics are required. 

SUMMARY 

Desktop/Plan-80 software is a self-contained financial 
forecasting package which offers a structured approach to 
financial modeling, and will particularly appeal to those who 
have had experience with modeling on a time-sharing com- 
puter and who wish to continue with that same type of time- 
shared format. 

The Desktop/Plan-80 program does not have the imme- 
diate flexibility of the VisiCalc program. However, it is espe- 
cially useful in situations where whole sub-models need to be 
consolidated into master models, or where the same model 
may be executed over and over. The program's graphics 
facility and its ability to accept a computed value file from a 
VisiCalc model make it useful when used in conjunction with 
that program. Desktop/Plan-80 is available for $199.00 for 
any 48K Model III with at least one disk and a printer. 



Model I/in Bugs, 
Errore and Fixes 



GENERAL LEDGER (26-1552) 

In version 1.1 of General Ledger for both the Model I 
and III, the program hangs up when attempting to post 
transactions. 

The problem is corrected by following the steps listed 
below. 

1 . Backup the diskette(s) and make the changes on the 
Backup copy of the program. 

2. In BASIC, load the program by typing LOAD 
"GLTXPOST". 

3. Make the following corrections: 

CHANGES (Retype the line or refer to the Edit section of 
the owners manual) 

OldLlne: 285 CL0SE2:0PEN"R" ,3 , "DETAIL: 1" 
: 0PEN"R" , 2 , "GLJOUR : 0" : CL0SE2 

New Line: 285 CLOSE 2 :OPEN"R", 3, "DETAIL : 1" 
:OPEN"R",2,"GL.JOUR:0" 
:ME=LOF(2)*6 
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Old Line: 301 ME=1 : ONERRORGOTO304 

New Line: 301 IFME>200THEN305ELSENE=1 
:ME=0:ONERRORGOTO304 

OldLlne: 302 PUT2 ,ME+10:GOTO302 

New Line: 302 PUT2, NE: NE=NE+1 :ME=ME+6 
: IFNE<100THEN302ELSE305 

OldLlne: 304 IFERR0122THENRESUME :ELSE 
ME=(ME-30)*6:RESUME305 

New Line: 304 IFERRO 1 22THE N9900ELSERESUME305 

OldLlne: 9900 RESUME 

New Line: 9900 ER=ER+1 : IFER<5THENRESUMEELSEPRINT@965 , 

"ERR0R"ERR/2+l"IN LINE"ERL"-PRESS <ENTER> 
TO RESTART"; :FL=1:GOSUB100:PRINT@960, 
CHR$(31);:GOTO10 

DELETE LINE 290 

4. Type SAVE "GLTXPOST" to save program changes. 

5. At TRSDOS READY make a backup of the corrected 
diskette. 

ACCOUNTS RECEIVABLE (26-1555) 

Below are four corrections to the Accounts Receivable 
program. The first is to recover a crashed index. The second 
eliminates Error Code 5 in line 2500. The third eliminates an 
Error code 2 in line 1 590 (version 3.0) or in 1 950 (version 1 .0). 
The fourth correction fixes a problem with correction entries. 
1 - RECOVERING A CRASHED INDEX (ALL VERSIONS) 

If any of the following symptoms occur, the index has 
been crashed and the following Recovery program should 
be run. (These corrections replace those published in the 
September 1980 Newsletter.) 

Unexpected Error Code 64, Line 2850 ("ARS") 
Unexpected Error Code 64, Line 1430 ("ARS") 
Bad Record Number on program line with "GET" or 

"PUT" statement 

When sorting, the statement "duplicate account # 

exists" appears or transactions appear under the wrong 

account— i.e. some transactions for account 3 are on 

account 20's bill, etc. 

In order to correct the above errors, please run the 
following program written to reconstruct "CUSINDEX" and 
"TRANSACT" files of Model I Accounts Receivable program 
package: 

Quicker routines can be written, but this was written with 
the customer in mind. This routine will not recapture report 
numbers nor session numbers. It is merely intended to aid in 
recapturing data files rendered inaccessible because the 
Customer Index or Transaction files have been damaged or 
scrambled. 

*****This is a last resort. All transactions must be 
checked afterwards and verified. This program will pick up 
all transactions on the disk, including deleted transactions 
and previous period transactions not yet over-written in the 
current period. 

1 . In BASIC, type the following program with each line 
followed by an < ENTER) 

1 ' *** RECOVER *** (C) 1981 TANDY CORP 

2 ' *** RECOVERS POINTERS/ INDEX FOR ACCTS. RECEIVABLE 

3 ' PROGRAM DISK SHOULD BE IN DRIVE 0, DATA DISK IN DRIVE 1 

— ON 3 DRIVE SYSTEMS, SECOND DATA DISK IN DRIVE 2. 

4 ' RECOVER WILL RUN SORT AND RETURN TO ARS ON COMPLETION. 

5 • **** FOR VERSION PRIOR TO 3.0, LINE 210 MUST BE 

MODIFIED: CHANGE "JD*128ASD$ " TO "JD*127ASD$ " AND 
"5ASDE$" TO "4ASDE$" 



10 CLEAR500:DEFINTA-Z:CLS:INPUT"PASSWORD";P$:INPUT"2 OR 3 

DRIVE SYSTEM" ;S 
20 GOSUB220 : 0PEN"R" , 1 ,PT$ : NT=LOF( 1 )*8 : 0PEN"R" , 2 ,PD$ 

:NA=LOF(2)*2 
30 DIMTR(NT ) 2) J AC(NA J 2):CLS:PRINT@154 ) "FIRST 

PASS": :PRINT@402, "WORKING ON TRANSACTION #" 
40 KK=NT:FORK=lTONT:GOSUB180:PRINT(a426 ) K:TR(K ) 0)=CVI(Vl$) 

:IFV0$<"A" ORV0$>"Z"THENKK=K:K=NT 
50 NEXTK:PRINT@154, "SECOND PASS": PRINT@426, 

" ":UN=KK:UT=KK-1:U=UT:F0RK=1T0UT 

:IFTR(K ) 0)<0THENTR(K,0)=-TR(K,0):U=U-1 
60 PRINT@426 , K: NEXT : CLS : PRINT@154 , "FIRST 

PASS" :PRINT@404, "WORKING ON ACCOUNT #" 
70 FORJ=lTONA: GOSUB200 : PRINT@424 , J : AC ( J , )=CVI(DD$ ) 

:IFAC(J,0)<1THENF=F+1 ELSECV#=CV#+CVD(DB$ ) 
80 NEXT : TN=J-1 : TI=TN-F : JJ=J-1 : PRINT(ai54 , "SECOND 

PASS":PRINT@424," ": UX=UT+(TR(UT,0)=1 ) 
90 FORJ=1TOJJ:PRINT@424,J:PT=0:FT=0:AC=AC(J,0):FORK=1TOUX 

:IFTR(K,0)=ACTHENTR(PT,2)=K:TR(K,1)=PT:PT=K:IFFT=0THEN 

FT=K 
100 NEXTK:AC(J,1)=FT:AC(J,2)=PT:NEXTJ:CLS:PRINT@402 ) 

"RESETTING TRANSACTION POINTERS" 
110 FORK=1TOUT:GOSUB180:LSETV8$=MKI$(TR(K,1)) 

:LSETV9$=MKI$(TR(K,2)): PUT 1 ,KR: NEXT: CLOSE 1 
120 CLS :PRINT@404, "RESETTING ACCOUNT POINTERS" 
130 FORJ=1TOTN:GOSUB200:LSETDI$=MKI$(AC(J,D) 

: LSETDJ$=MKI$ ( AC ( J , 2 ) ) : PUT2 , JR : NEXT : CL0SE2 
140 CLS :PRINT@410, "WRITING INDEX" 

:0PEN"0",1, "CUSINDEX. "+P$+" : 1" :PRINT#1 ,TI ; 

TN;F;U;UT;UN; 0; 1 ; 1 ; 1 ; 1 ; 1 ; 1 ; 1 ; 1 ; STR$ (CV# 

)+"D0" 
150 FORN=1TOTN-1:CN=N:IFAC(N,0)<1THENCN=-CN 
160 PRINT#1 ,CN;CN;CN: NEXT: CLOSE l:OPEN"0",l, "TRANSFER: 1" 

:PRINT#1,PI$:PRINT#1 > PD$:PR1NI#1,PS$:PRINT#1,PT$ 

:PRINT#1,PG$: CLOSE 
170 CLS:PRINT@410, "SORTING DATA" : CLEAR50: RUN"ARSORT" 
180 KR=INT((K-l)/8)+l:KD=K-8*INT((K-l)/8)-l 
190 FIELD1 ,KD*31 ASVV$ , 1ASV0$ , 23ASV1$ , 2ASV8$ , 2ASV9$ , 3ASVX$ 

: GET 1,KR: RETURN 
200 JR=INT((j-l)/2)+l:JD=J-2*INT((j-l)/2)-l 
210 FIELD2,JD*128ASD$,105ASD0$,8ASDB$ J 4ASDC$,2ASDD$,5ASDE$, 

2ASDI$,2ASDJ$: GET2 ; JR: RETURN 
220 PT$="TRANSACT."+P$+":"+CHR$(47+S):P$=P$+":l":PI$= 

"CUSINDEX. "+P$ : PD$="CUSDATA. "+P$ : PS$="CUSSETUP. "+P$ 

: PG$="GLFILE . "+P$ : RETURN 

2. Type SAVE "RECOVERY" to save the program for 
later use. 

3. Type RUN and press < ENTER) to start the recovery 
process. 

4. If the program is ever needed again load it from the 
disk with LOAD "RECOVERY". 

2 - ERROR CODE 5 IN LINE 2500 (MODEL I VERSIONS 
PRIOR TO 3.0) 

If an Error Code 5 in line #2500 occurs there is a cus- 
tomer with more than 256 transactions posted. 

The problem is corrected by following the steps listed 
below. 

1 . Backup the diskette(s) and make the changes on the 
Backup copy of the program. 

2. In BASIC load the program by typing LOAD "ARS". 

3. Make the following corrections: 

CHANGES (Retype the line or refer to the Edit section of 
the owners manual) 

OldLlne: 2540 LSETDF$=ST$ : LSETDG$=FC$ : LSET 
DH$=TC$ : LSETDI$=MKI$ (DI ) : LSET 
DJ$=MKI$(DJ):PUT2,JR:RETURN 

New Line: 2540 LSETDF$=ST$: LSETDG$=FC$ : LSET 

DH$= CHR$(TC~(255-TC)*(TC>255)) 

:LSETDI$=MKI$(DI):LSETDJ$= 

MKI$(DJ):PUT2,JR:RETURN 

4. Type SAVE "ARS" to save the changes in the 
program. 
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5. At TRSDOS Ready, make a backup copy of the cor- 
rected diskette. 

3 - ERROR CODE 2 ON MODEL I/III 

An Error code 2 may be encountered in line 1590 on 
version 3.0 or in line 1950 in version 1.0 

The problem is corrected by following the steps listed 
below. 

1 . Backup the diskette(s) and make the changes on the 
Backup copy of the program. 

2. In BASIC, load the program by typing LOAD "ARS". 

3. Make the following corrections: 

CHANGES (Retype the line or refer to the Edit section of 
the owners manual). 

Old Line: 1590 GOSUB1460: IFKS=0ANDVA$O"D"THEN 
RM$="INVALID ID#-NOT POSTED"" 

New Line: 1590 GOSUB1460: IFKS=0ANDVA$O"D"TH£N 
RM$="INVALID ID#-NOT POSTED" 

4. Type SAVE "ARS" to save the changes in the 
program. 

5. At TRSDOS Ready, make a backup copy of the cor- 
rected diskette. 

***NOTE*** 

This is line number 1950 in version 1.0 

New Line: 1950 GOSUB1780: IFKS=0ANDVA$O"D"THEN 
RM$="INVALID ID#-N0T POSTED" 

4 - CORRECTION ENTRY TO A PAYMENT ERROR 

When a correction entry is made to a payment, it re- 
places the previous payment on the statement (all versions of 
Model I/III A/R). 

The problem is corrected by following the steps listed 
below: 

1 . Backup the diskette(s) and make the changes on the 
Backup copy of the program. 

2. In BASIC, load the program by typing LOAD "ARS" 

3. Make the following corrections: 

**** NOTE : On versions prior to 3.0, this is line 1650. 

CHANGES (Retype the line or refer to the Edit section of 
the owners manual) 

Old Line: 2020 PR#=PR#-VE#: CB#=CB#+VE#:CV#=CV# 

+VE#:G#(VJ)=G#(VJ)-VE#:G#(2)= 

G#(2)-VE# 
New Line: 2020 PR#=PR#-VE#:CB#=CB#-VE#:CV#= 

CV#-VE#: G# ( VJ )=G# (VJ )-VE# 
:G#(2)=G#(2)-VE# 

4. Type SAVE "ARS" to save the changes in the 
program. 

5. At TRSDOS READY make a backup copy of the 
corrected program. 

DISK PAYROLL (26-1556) 

There are two corrections for Disk Payroll for the Model I. 
The first corrects a problem which occurs in versions prior to 
2.0 and the second corrects a problem which occurs in 
version 2.0. 

VERSIONS PRIOR TO 2.0 

The following corrections replace those published in the 
September 1980 Newsletter. 

A customer cannot change weeks worked or workmen's 
comp in the personnel information section for employees. 

The problem is corrected by following the steps listed 
below. 



1 . Backup the diskette(s) and make the changes on the 
Backup copy of the program. 

2. In BASIC, load the program by typing 
LOAD"PR4ADD" 

3. Make the following corrections: 

CHANGES (Retype the line or refer to the Edit section of 
your owner's manual) 

Old Line: 3900 F0RI=ZlTOZ2:MID$ (G$ , 1*8-7 ,8)= 

MKD$ (E# ( I-Z3 ) ) : NEXTI : LSETGG$=G$ 
:PUT4,l+2*(N-l)+INT((Z-2)/2):GOTO810 

NewLlne: 3900 F0RI=ZlTOZ2:MID$ (G$ , 1*8-7 ,8 )= 

MKD$ (E# ( I-Z3 ) ) : NEXTI : LSETGG$=G$ 
:PUT4,l+2*(N-l)+INT((Z-2)/2):LSETFF$=N$ 
:PUT#3 ,N:GOT08 1 

4. Type SAVE"PR4ADD" to save the changes in the 
program. 

5. Make a backup copy of the corrected diskette. 
VERSION 2.0 CORRECTIONS 

In Model I Disk Payroll version 2.0, if the city withholding 
limit is set to a percentage of gross earnings, city withholding 
continues to be calculated even after the year-to-date earn- 
ings for a particular employee have passed the limit. 

The problem is corrected by following the steps listed 
below. 

1 . Backup the diskette(s) and make the changes on the 
Backup copy of the program. 

2. In BASIC load the program by typing 
LOAD"PR4INPUT" 

3. Type DELETE 6200-6290 <ENTER> 

4. Type 6290 REM <ENTER> 

5. Now enter the following lines. 

ADDITIONS (Type the line followed by (ENTER)) 

144 IFL2<0THENL2=999999:G2#=L2ELSEG2#=L2*W5/100# 

6200 IFZ=1THEN6500ELSEE#(I)=0:IFMID$(N$,250 ) 1)O"Y"ORK#<1 

THEN6500 
6210 G$=M1D$(E$,1 88,7 ) : GOSUB6900: G#= (G#*K#-CVS(M1D$ (E 1$ , 241, 

4)))/K# 
6220 IFG#<. 01THEN6500ELSEGOSUB6270: GG$=MID$ (E$ , 187 , 1 ) 
6230 IFGG$="D"THENE#( I )=G#*W5/ 100# : GOTO6250 
6240 IFGG$O"P"THEN6500ELSEE#(I)=E#(9)*W5/100# 
6250 IFE#(I)+E4#(I)>G2#THENE#(I)=G2#-E4#(I) 
6260 IFE#(I)<0THENE#(I)=0:GOTO6500ELSE6500 
6270 G1#=0:FORJ=1TO7: IFMID$ (G$ , J , 1 )="l"THENGl#=Gl#+E4#(j) 
6280 NEXTJ: RETURN 

6. Type SAVE"PR4INPUT" to save the changes to the 
program. 

7. At TRSDOS READY make a backup copy of the 
corrected program. 

8. In BASIC, LOAD"PR4JNL". 

9. Type LIST 200-205. 

Somewhere in lines 200 to 205 (depending on 
the version), there is a line which contains 
CW% = CVI(MID$(S$. . . .etc. 

This should be CT%, not CW°/o. 

MICROFILES (26-1565) 

As you start to fill up your Microfiles database, it can 
sometimes be inconvenient and distracting to wait for the 
program to decide when to create a new extension. This 
procedure will allow you to create as many new extents as 
you wish, at your convenience. 

The secret to this procedure is in how Microfiles knows 
how many extents are in the database. Microfiles stores the 
number of the highest extent that exists (plus 128) in the 
fourth byte of the second sector of the first extent (FILE/V0). 
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As you already know from using the program, Microfiles will 
create an extension of the database if it does not find FILE/VO. 
Given this information, an additional extent can be 
created as follows: 

1. Under DOS, RENAME FILE/VO to FILE/X so Micro- 
files cannot find it. 

2. Run Microfiles. It will ask you to specify a drive num- 
ber where you want to create the extent. 

3. When Microfiles finishes and says, "OK," type 
DONE. 

4. Under DOS RENAME the newly created FILE/VO to 
make it the next higher extent that you require. (If you 
already had FILE/VO and FILE/V1, RENAME it 
FILE/V2.) 

5. You can repeat steps 2-4 and create as many new 
extents as you need (up to FILE/V9). 

6. Once you have created the new extents, RENAME 
FILE/X (your original FILE/VO) back to FILE/VO. 

7. Finally, you must let Microfiles know that the new 
extents exist. In BASIC, key in the following program 
and run it. 

10 OPEN"R",1,"FILE/V0" 

20 FIELD#1,3 AS A$ , 1 AS B$ 

30 GET 1,2 

40 LSET B$=CHR$(128+?) 

50 PUT 1,2 

60 CLOSE* 1 

The question mark in line 40 must be replaced with the 
number of the highest extent that you have created (If FILE/ 
V2 is the highest, use 2). 

After following this procedure, run Microfiles and check 
your available space by typing FREE. 

MODEL III DISK COURSE (26-2014) 

In the Lesson 1 section which explains the additional 
editing features in Model III Disk BASIC, there is an error. 
SHIFT DOWN ARROW does not list the last line of the pro- 
gram as stated. SHIFT DOWN ARROW Z will list the last 
program line. 

MODEL III DISK SYSTEM OWNER'S MANUAL (26-21 11) 

On page 124 under E for extending sequential output 
starting at the end of file, the manual incorrectly states "If the 
file is not found, it will be created." It should say instead, "The 
file must already exist." 



Notes on Previous 
Newsletters 

November 1981 

COLOR DISASSEMBLER 

Thomas Rokicki 

Box 258 

College Station, TX 77841 

There is a small bug in Line 250 of the Color Dissas- 
sembler. It presently reads: 

250 IF 16 AND ( PEEK(PI + TE ) ) THEN 0P$ = "(" + 0P$ + ")" 
: RETURN ELSE RETURN 



It must be changed to: 

250 IF 16 AND PEEK(PI+TE+1 ) THEN 0P$="[" +0P$ + "]". 
: RETURN ELSE RETURN 

I apologize for this small bug, but I wrote this program in 
an hour on a bus and did not test it as extensively as I should 
have. 



August 1981 

CHECKER BOARD 

Larry Smith 
34825 Lakeview Dr. 
Solon, OH 44139 



With the correction to the August 81 Color Computer 
Checker Board program, I finally got the game playing. Dur- 
ing play we could not read the "T" in the upper left box. To get 
the program to show the "T," we had to change the program 
as follows: 

Delete the original line 825 and enter the following 825: 

825 DRAW"C2; BMl6,22; U20; L10; R20; C4" 

Looking forward to more programs. 
We also received the following additional change to the 
CHECKER BOARD program. 



Matt Petrich, Age 12 

1629 E.L.K. Sammamish Rd. North 

Redmond, WA 98052 



We have made some changes in the Checker Board 
program by William Cotton, Volume 3, Issue 8 of the 
Microcomputer News. We made changes to allow the pro- 
gram to run because the listing was incorrect. We also 
changed the colors of the checkers so people with black & 
white TVs could tell the checkers apart. We changed the 'D' 
to the space bar to make it easier to play. 

The changes in the listing are as follows: 

137 IF Y<84 THEN PAINT(X+1 , Y+l ) , 2 , 1 

138 IF Y>108 THEN PAINT(X+1 , Y+6 ) , 3 , 1 

The above corrections allow the program to run as in- 
tended by Mr. Cotton. 

The change below increases the contrast between the 
"red" and "black" checkers so you can play the game on a 
black & white TV: 

137 IF Y<84 THEN PAINT(X+1 , Y+l ) , 1 , 1 

The next change allows the use of the space bar instead 
of 'D' to begin the game. 

180 IF A$=" " THEN 190 
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Level I 



Level I Calendar 



Dave Goldman 
Fort Worth, Texas 



Calendar will display a calendar for a given month and 
year, or by inputting a date and year, it will display the day of 
the week on which the input date occurs. 

1 A( 1 )=31 
A(2)=28 
A(3)=31 
A(4)=30 
A(5)=31 
A(6)=30 

2 A(7)=31 

A(8)=31 

A(9)=30 

A( 10)=31 

A( 11) = 30 

A( 1 2 ) = 3 1 

3 REM ***FOR COMMENTS, SEE LINE 1000*** 

4 D=l 

: C=2 

5 CLS 

: INPUT '"D'AY OF WEEK OR ' C ' ALEND AR" ; Q 

6 IF Q=2 THEN INPUT "MM,YY";M,Y 
D=l 

GOSUB 300 
GOTO 11 

7 IF Q=l THEN INPUT " MM , DD , Y Y" ; M , D , Y 

: GOSUB 300 
: GOTO 600 

8 GOTO 4 

11 CLS 

12 L=A(M) 

: IF (M=2)*( ( INT(Y/4) )*4 = Y) THEN L=29 

13 P = T 

: K=25 7 

14 RESTORE 
FOR 1=1 TO M 
READ A$ 
NEXT I 

15 PRINT AT 28;A$ 

: PRINT 

16 PRINT " SUN MON TUES WED 

THUR FRI SAT" 

17 PRINT AT 92; "("; 1900 + Y;")" 
20 FOR 1=1 TO L 

24 IF T>7 THEN T=.l 
: : K=K+128 

25 J=K+T*8 

30 PRINT AT J;I; 
35 T=T+1 
40 NEXT I 
50 GOTO 5000 

70 DATA " JANUARY"," FEBRUARY"," MARCH"," 

APRIL"," MAY" 

71 DATA " JUNE"," JULY"," AUGUST"," SEPTEMBER"," 

OCTOBER" 
8-tf DATA " NOVEMBER"," DECEMBER" 
90 DATA SUNDAY, MONDAY .TUESDAY, WEDNESDAY, THURSDAY, 

FRIDAY.SATURDAY 
3-'00 IF(D>A(M) ) + (D<l ) THEN 5 
3"05 A = INT(Y/12) 
310 B=Y-A*12 
320 C=INT(B/4) 
330 T=A+B+C+D 



340 ON M GOTO 400, 370, 370, 410, 390, 360, 410 

380, 350, 400, 370, 350 
350 T=T+1 
360 T=T+1 
370 T=T+1 
380 T=T+1 
390 T=T+1 
400 T=T+1 

410 IF T>7 THEN T=T-7 
420 IF T>7 THEN 410 
430 RETURN 
600 RESTORE 

FOR 1=1 TO M 
READ A$ 
NEXT I 
610 FOR I=M+1 TO 12+T 

: READ B$ 

: NEXT I 
620 CLS 
630 PRINT AT 210, A$ ;D ;1900+Y ;" IS A"B$ 

999 REM ***** 

1000 REM *** CALENDAR-BY D.A. GOLDMAN VER.3.0 *** 

1002 REM *** VALID FOR ALL DATES 1909-1999 *** 

1003 REM *** ACCURACY OF 1900 UNSURE. CHANGE *** 

1004 REM *** TO ACCOMMODATE 1800-2099 SHOULD *** 

1005 REM *** ONLY INVOLVE A CONSTANT(+-l OR 2) 
*** 

1006 REM *** NOTE: TO CONTINUE PROGRAM AFTER *** 

1007 REM *** EACH DAY OR CALENDAR, JUST TOUCH *** 

1008 REM *** ANY KEY. PROGRAM WILL LOOP TO TOP 

; *** 

1009 REM *** DATA: MONTH- M 0<MM<12 *** 

1010 REM *** DAY - DD 0<DD<A(M) *** 

1011 REM *** YEAR- YY 0<YY<99 

1012 REM *** DAY IS NOT INPUT TO CALENDAR *** 

1013 REM *** ROUTINE. YEAR IS INPUT AS Y-1900 *** 

1014 REM ***** 

5000 PRINT AT 1022;" "; 

5005 SET(127,47) 

5010 IF POINT( 127 ,47) THEN 5010 

3015 GOTO 4 
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Education 



Secondary 
Programs 




• 



-Solving 



If you are a regular reader of the Education section, 
you've recently seen discussions of elementary and second- 
ary math programs that build skill in mathematical founda- 
tions by leading students through sequences of 
drill-and-practice lessons of progressive difficulty. This 
month's Education article will introduce you to Radio Shack 
computer assisted instruction programs of a different type for 
the secondary physics or upper-level math student. Like the 
drill-and-practice programs, these programs are designed to 
complement the school's standard curriculum, but they differ 
from the drill programs in structure and purpose. These are 
problem-solving programs, or programs whose main pur- 
pose is to provide an opportunity for exploration within the 
framework of certain mathematical or scientific concepts. 

Four of Radio Shack's math and physics programs are: 
Advanced Graphics, Interpreting Graphs in Physics, Vector 
Addition, and Graphical Analysis of Experimental Data. They 
were designed and programmed by Richard Born, a profes- 
sional educator with fourteen years of experience in teaching 
high school physics, mathematics, and computer science. 
Mr. Born is now a consultant for Radio Shack. This month 
we'll take a look at the programs Advanced Graphics and 
Vector Addition. In the April issue, we'll examine the pro- 
grams 

Interpreting Graphs in Physics and Graphical Analysis of 
Experimental Data. 

When the TRS-80 microcomputer was introduced in Fail, 
1977, Born was teaching a senior-level math class that re- 
quired students to do much plotting of equations. Born saw 
the microcomputer as a tool that could be used to plot equa- 
tions quickly and thus act as a source of motivation and 
enrichment for his math and physics class, and so he ordered 
a TRS-80 in February 1 978. Advanced Graphics was the first 
courseware program Born wrote for the TRS-80. 

ADVANCED GRAPHICS 

Advanced Graphics actually contains two programs: 
Plotting Functions, and Plotting Polar and Parametric 
Equations. Plotting Functions comes with an equation built 
into a line of the program: 

(y = x 4 -2x 3 -43x 2 -+ 80x + 300) 
but by following a few quick steps the student or teacher can 
change the equation as many times as desired. Once the 
equation to be used has been stored in the program, the 
student simply enters the left and right endpoints of the 
domain, and the computer prepares and displays the graph. 
For example, a graph like the following would be displayed if 
the original equation were used and the endpoints -1 5 and 1 5 
were selected: 




Once the computer has displayed the graph, three op- 
tions are presented. The student can change the domain, 
explode the graph, or redraw the graph: 

To explode the graph, the student would simply type < E > 
to select the "explode" option and would then enter the new 
endpoints. After several seconds, the exploded region of the 
graph would appear on the video screen. For example, the 
graph of the original equation exploded between .5 and 3.5 
would be displayed as follows: 




The second Advanced Graphics program, Plotting Polar 
and Parametric Equations, works in a similar way to allow the 
student to quickly plot the graph of equations in the polar form 
r=/(8), where r and 8 are the polar coordinates, or to graph 
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sets of parametric equations of the form x=/(t) and y =/(t), 
where x and y are the Cartesian coordinates and t is the 
parameter that is taken as the independent variable. 

Born designed Advanced Graphics not as a crutch that 
does the students' work for them, but a supplementary tool 
for motivation and enrichment. He found that his students 
were motivated by having the opportunity to check their 
answers on the computer after using traditional methods to 
arrive at the answer. Born has also used the Advanced 
Graphics program to introduce some of the complex curves, 
spirals, and figures that students do not usually see until they 
take college math courses. Born says that Advanced 
Graphics provides a way to illustrate "the beauty of the math- 
ematics involved" without allowing that beauty to be "lost in 
all of the calculations". 

Bom's philosophy has been that a teacher can best use 
a program like Advanced Graphics when the program is 
accompanied by related exercises and investigations. Con- 
sequently, the Advanced Graphics manual contains a Se- 
lected Investigations section for students who wish to use the 
computer to explore special aspects of functions. 

The Selected Investigations section for Plotting 
Functions includes exercises in such areas as determining 
the real zeroes of functions, finding relative maxima and 
minima of functions, graphing functions with discontinuities, 
building square waves, and determining the horizontal range 
of projectiles fired at different angles. 

Some of the Selected Investigations included for Plotting 
Polar and Parametric Equations involve graphing Lissajous 
figures, rose curves, and several kinds of spirals. The 
Advanced Graphics manual also includes a Programming 
Guide which documents the structure of both programs, and 
an Answer Key which provides answers to the problems in 
both of the Selected Investigations sections. 

VECTOR ADDITION 

Like Advanced Graphics, the Vector Addition program 
uses the TRS-80 as a visual tool. It helps students understand 
mathematics concepts, without overemphasizing the calcu- 
lations involved. Using vector values entered by the student, 
the computer can display the vectors with their tails at a 
common origin, can draw the vectors tip-to-tail, and can 
display a list of vector values including values for the resultant 
vector. 

Let's take a look at how the program works. The student 
will probably begin by reading a stated problem and deter- 
mining the magnitude and direction of each vector. For exam- 
ple, let's suppose that the problem states that you are walking 
in a city with square blocks. You walk two blocks south, three 
blocks east, five blocks north, four blocks west, two blocks 
north, two blocks west, and nine blocks south. The problem 
asks, if a crow were to fly from your starting point directly to 
your finishing point, how far would it need to fly and in what 
direction? 

To solve the problem, you first need to assign values to 
the vectors. Begin with your first vector, which is "two blocks 
south." Superimposing the directions north, south, east and 
west over a Cartesian coordinate graph, we find that south is 
represented as 270°. Your first vector would therefore have 
the magnitude 2 (for the two blocks you walked) and would 
have the direction 270 (because south has been defined as 



W(180°). 



N (90°) 



E(0°) 



S (270°) 

270°. You'd begin by typing the vector values 
<2><,><2><7><0> and pressing <ENTER>. 

Once you had entered all vector values for the problem, 
your screen would look like this: 




To continue, you'd press < ENTER). The next screen 
would appear: 




If you then typed <T> for a "tip-to-tail display" and 
pressed the space bar until all of your vectors were dis- 
played, you'd see the following on your video screen. 

The Vector Addition program is especially suited for use 
in high school physics classes as a supplement to introduc- 
tory units covering vectors. To support a continuing focus on 
vectors throughout the physics course, the Selected Investi- 
gations section of the Vector Addition manual presents exer- 
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cises in areas ranging from fundamentals of vectors to 
electrical forces and fields. Intermediate vector concepts for 
which problems are included are displacement, velocity and 
acceleration, force, gravitation, and conservation of momen- 
tum. A Programming Guide outlines the structure of the 
Vector Addition program, while an Answer Key provides 
answers to the problems in the Selected Investigations 
section. 

Advanced Graphics (26-1 714) and Vector Addition (26- 
1720) can be run on the TRS-80 Model I or Model III 16K 
tape system, or 32K or 48K disk system. The suggested retail 
price of each is $29.95, though prices may vary at individual 
stores and dealers. For more information, contact your local 
Radio Shack Store or Computer Center. 



String Packing for th< 
Color Computer 

Gordon Duff 

500 Pittsfield-Lenox Road 

Lenox, MA 01240 



When I received the May issue of the TRS-80 
Microcomputer News, I was disappointed. When are you 
going to start publishing information of a more technical 
nature regarding the Color Computer? In particular, I was 
very interested in the article on using VARPTR to compress 
graphic strings, and was very upset when I discovered that 
you did not include the information necessary to adapt the 
program to run on my computer. After a lot of experimenting, I 
managed to figure out the required modifications on my own, 
but this is a very frustrating procedure, with which I have 
become all too familiar. 

I have included a listing of my version of the string 
packing program in case you would like to print it for other 
owners of the Color Computer to experiment with. I am sure 
there are other people like myself who would appreciate 
having this type of information made available. I bought a 
Color COMPUTER, not a color TV game. 



6030 
6040 

6045 
6050 
6060 
6070 



614 



6110 



6120 
6130 
6140 

6150 
6160 
6170 
6180 



PRINT"LENGTH OF STRING=";PEEK(K) 

LS=PEEK(K+3) 
: MS=PEEK(K+2) 

PRINT"LSB OF STARTING ADDRESS=";LS 

PRINT"MSB OF STARTING ADDRESS=" ;MS 

S=LS+MS*256 

PRINT"STARTING ADDRESS=";S 

PRINT"CHARACTER CODE OF STRING NAME= 
*.PEEK(K-2);PEEK(K-1) -128 

PRINT"ASCII C0DES="; 
: FOR J=j5T0 PEEK(K)-1 
: M=S+J 

PRINT PEEK(M); 
: NEXT J 
: PRINT 

PRINT"C$=";C$ 

FOR 1=1 TO PEEK(K) 

PRINT"VALUE FOR BYTE"; I; 
: INPUT V 

M=S+I~1 

POKE M V 

NEXT I 

GOTO 6000 



Using Data Tapes 



Harold Morrissette 
P.O. Box 1064 
Presque-Isie, ME 04769 



I was thumbing through my TRS-80 users manual and 
noticed the example program for using data tapes. I loaded 
the program in my Model I Level I computer and ran it for 
eight days. Then I noticed that you could never find out what 
the previous day's temperature and humidity was. It would 
not print the information on the tape but just averaged it out. 
So one night after school I started to play around trying to 
make a program to print the previous data. This is what I 
came up with: 



CLS 

INPUT 

D=l 

PRINT 

INPUT 

X = D 

INPUT 

PRINT 
GET 
WIL 
TOP 

D = D+1 
IF T 
T = T- 
5 GOTO 
GOTO 



"ENTER TODAY'S DATE";T 

"REWIND DATA CASSETTE TO DATA." 
"PRESS ENTER WHEN READY";A$ 

#Y,Z 

"DATE" ; X; "TEMP ." ;Y; "HUMID. "; Z; "SPACE BAR UNTIL YOU 
TO THE END OF THE SCREEN THEN END IT WITH" THIS 
L MAKE IT SO THE NEXT LINE WILL GO RIGHT UNDER THE 
ONE . 

=1 THEN 200 
1 



60 
20f 



This is what the program looks like when you run it: 



Enter today's date? 
Rewind data cassette to data. 
Press enter when ready? 

Date 1 Temp. 70 Humid. 30 

Date 2 Temp. 62 Humid. 30 

Date 3 Temp. 75 Humid. 50 

Date 4 Temp. 63 Humid. 45 

Date 5 Temp. 70 Humid. 28 

Date 6 Temp. 64 Humid. 20 

Date 7 Temp. 63 Humid. 30 

Date 8 Temp. 60 Humid. 34 



CLS 
. c$ = „ 

6010 K=VARPTR(C$) 
6020 PRINT"VARPTR=" 
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Mode! II 



lodel 16 

Radio Shack Introduces the Most Powerful Self-Contained Microcomputer Ever 




Radio Shack is happy to announce the new generation 
of desktop computers. The TRS-80 Model 16 puts minicom- 
puter performance in a complete, compact desktop system. 
Maximum performance from a microcomputer— it took 
Radio Shack to design it. 




SiXTEEN-BIT TECHNOLOGY 

The new TRS-80 Model 1 6 is designed around a state-of- 
the-art MC68000 microprocessor— a true 16-bit central pro- 
cessing unit (CPU) that has a 16-bit data bus, but processes 
information internally as 32-bit "words." This allows the 
Model 16 to utilize much more memory than systems using 
the more familiar 8-bit microprocessors. 

Among the many advantages of this design is the ability 
to perform tasks with increased speed allowing more com- 
plex tasks to be accomplished with ease. This means that 
many jobs too complex for ordinary microcomputers can 
now be done on a completely self-contained desktop com- 
puter: Model 16, the maxi-micro! 

DUAL-PROCESSOR ARCHITECTURE 

In addition to the 1 6-bit 68000 main processor, Model 1 6 
incorporates a second processor— the Z-80A. The Z-80A 
handles all of the input/output functions of the main 16-bit 
CPU. In effect, it relieves the 68000 of time-consuming 
"housekeeping chores." As a result, the main CPU's raw 
processing power is utilized for number crunching and mem- 
ory management. 

128K— 512K INTERNAL MEMORY 

Model 16 includes a 128K byte Random Access Mem- 
ory (RAM) board that can accept an additional 1 28K RAM at 
any time. Another 1 28K memory board may then be added, 
complete with provisions to add still another 1 28K, for a total 



RAM memory of 51 2K! The memory IC's in the Model 1 6 are 
64K RAMS. 

DELUXE FEATURES 

Model 1 6 comes with one or two built-in thin-line double- 
sided, double-density disk drives. Each drive is capable of 




storing 1 .25 million characters on 8" floppy diskettes, giving 
you the potential of 2.5 million characters of disk storage with 
no external equipment needed. The two slim-line drives oc- 
cupy the same physical space as one of the current Model II 
drives. For additional storage, up to four of Radio Shack's 8.4 
Megabyte Hard Disk Drives can be added. 




A high-resolution 1 2 inch video display with 24 lines of 80 
characters each is standard. A green screen is used to en- 
hance readability and reduce glare. The detachable type- 
writer-style keyboard features a numeric keypad and eight 
special-function keys. 

The Model 16 design includes two serial (RS-232C) 
ports. One of these ports is also designed for both BiSynch 
and SNA/SDLC communications to mainframes without the 
need for additional hardware. Also included is a parallel 
printer port. A hard disk port can be added for hard disk 
operation. 

SOFTWARE COMPATIBILITY 

Dual processor design permits the Model 16 to operate 
as a Model II and use existing TRS-80 Model II software! The 
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Z-80A is the same 8-bit microprocessor used in our highly 
respected TRS-80 Model II Business computer. So we've 
given the Model 16 the ability to function as a Model II and 
run existing TRS-80 Model II business software! This pro- 
vides a large base of ready-to-run software, compatible with 
your Model 1 6 right now! This hardware/software compatibil- 
ity is a rare feature in a new generation of computers. But you 
get it with Radio Shack's TRS-80 Model 16! 

Software to take full advantage of the Model 16's 16-bit 
processing power is being developed by Radio Shack. 
Model 1 6's operating system is virtually "Library Command" 
compatible with the popular TRS-80 Model II. An Editor/As- 
sembler is provided for machine language program develop- 
ment, and includes an Editor, assembler, linking loader, 
cross-reference and debugger. 

Model 1 6 COBOL, the same one that is currently availa- 
ble for the Model II and III computers, will be available at the 
same time as the Model 1 6. This will allow us to move many of 
our application programs to the Model 1 6, as well as allowing 
many minicomputer applications packages to be moved to 
the 16 with little effort. During the coming year Radio Shack 
will add FORTRAN and both Compiler and Interpreter 
BASICs. 

By mid-year Radio Shack will offer an integrated, fully 
interactive small business accounting system which will run 
on either floppy disk or hard disk. This system consists of six 
modules; General Ledger, Accounts Payable, Payroll, Ac- 
counts Receivable, Order Entry/Inventory Control, and Sales 
Analysis, all of which share the same common data base. 
These are very high quality COBOL programs which were all 
originally implemented on 16-bit minicomputers. All of these 
programs are currently available for the Model II, except for 
Payroll, as floppy disk programs. The programs will be re- 
compiled to operate on the Model 1 6 with slight modifications 
for multitasking. 

MULTI-USER CAPABILITY 

One of the advantages of a 16-bit microprocessor is 
multitasking. The Radio Shack TRS-80 Model 16's advanced 
design allows a stand-alone computer to become the hub of a 
multi-user system. In a typical multi-user application, termi- 
nals would be connected to a Model 16 by the serial ports. 
Each user could then run a totally independent application 
package simultaneously with the other users. The Model 1 6 is 
hardware equipped to support three simultaneous users, 
one at its keyboard and two at terminals. This feature gives 
you a powerful expansion option that you can implement 
whenever you want. In this manner the Model 1 6 can grow to 
the equivalent of three separate computers. The multi-user 
operating system will be available about mid-year 1982. 

TRS-80 MODEL II OWNERS 

You can upgrade your present Model II computer to 
16-bit computing power and up to 256K memory. 

You can equip your Model II with our new TRS-80 Model 
16 Enhancement Option! The Model 16 Enhancement Op- 
tion provides you with the 1 6-bit, dual-processor, multi-user 
power of the Model 16. 

The upgrade kit consists of the Model 1 6 software, docu- 
mentation, and a Model 16 processor board and a 128K 
memory board. The processor and memory boards are in- 
stalled in the existing card slots of any Model II. The only 
limitation to the upgrade is that the maximum memory is 



limited to 256K. Your present disk drive and monitor will be 
retained, and you'll still be able to use all of your existing 
Model II software. The 64K bytes that you have been using 
with the Z-80A will still beincluded. In the Model 1 6 mode, this 
memory is used as an Input/Output buffer, leaving the Model 
16 memory available for your operating system and applica- 
tion software. 

ARCNET COMPATIBILITY 

Model 1 6s may be added to an ARCNET system (see the 
November, 1981 Microcomputer News for information on 
ARCNET) as applications processors in a mix with Model II's. 
In addition, the Model 1 6 may be used in a multitasking mode 
with two terminals attached and still run on ARCNET. 

AND WE HAVE THE TERMINALS! 

To use the TRS-80 Model 16 as a multi-user office sys- 
tem, just add an optional video terminal, such as 
Radio Shack's new DT-1 , at each location. 

Radio Shack's new TRS-80 DT-1 is a no-compromise 
video terminal. It is ideally suited for communications with 
Model 16. With the addition of a low-cost Radio Shack Mo- 
dem, DT-1 can access other host computers and time-shar- 
ing information networks. 

STATE-OF-THE-ART DESIGN 

Unlike many terminals, you can easily set up and change 
the configuration of the DT-1 from the keyboard. There are no 
dip switches to bother with. The secret? A revolutionary 
non-volatile memory (EEPROM) that retains your terminal 
configuration even after power off, and without the need for 
battery backup! 

MULTIPLE EMULATION MODES 

The DT-1 is completely code compatible with four stan- 
dard terminal protocols. It can emulate a Televideo 910, a 
Lear Siegler ADM-5, an ADDS 25 or a Hazeltine 1 41 termi- 
nal. 

OTHER FEATURES 

The 1 2" diagonal black and white CRT displays 24 lines 
of 80 upper and lower case characters per line. Special 
single-character symbols are used to display control charac- 
ters. The DT-1 is capable of displaying 6 video attributes 
including normal, reverse, invisible, blink, underline and half 
intensity. The user can select from 1 different baud rates, 
four different cursor types, and can program the carriage 
return, control key codes and other operating parameters. 
The DT-1 also includes both serial and parallel printer inter- 
faces. The heart of the DT-1 is a custom programmed high 
speed 8-bit microprocessor which gives the DT-1 its high 
performance and low price. 

SUGGESTED RETAIL PRICES 

Model 16 

Single 8" disk drive, 128K - 26-6001 $4999 
Two 8" disk drives, 128K - 26-6002 $5798 
Memory Board with 128K- 26-6011 $699 
128K Memory Kit - 26-6012 $499 
Model 16 Enhancement option 
for the Model II - 26-6010 $1499 

DT-1 Data Terminal - 26-6050 $699 
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odel II Bugs, 
Errors and Fixes 



ACCOUNTS PAYABLE (26-4505) 

We've had several inquiries about the option of posting 
invoices without having to return to the Main Menu on Version 
1 .0. The only purpose behind this would be to save time and 
not have to reload those large programs. If these changes are 
made, then a COMPLETE posting must be done since the 
selection of invoices is done from the Main Menu and is 
bypassed. 

GOING DIRECTLY TO INVOICE POSTING FROM INVOICE 
MAINTENANCE: 

To add the option of running the POST INVOICES func- 
tion from the INVOICE MAINTENANCE function without re- 
turning to the MAIN MENU first, the following changes should 
be made. Note: You must request a Complete posting since 
the selection process is done from the main menu and will be 
bypassed. 

The problem is corrected by following the steps listed 
below. 

1 . Backup the diskette(s) and make the changes on the 
Backup copy of the program. 

2. In BASIC, load the program by typing 

LOAD"APINVCE/BAS" 

3. Make the following corrections: 

CHANGES (Retype the line or refer to the Edit section of 
the owners manual) 

Old Line: 502 PRINT@(23, 20) ,EL$"> ENTER A SELECTION 
:";:FL=1:GOSUB10:IFCF=1THEN850 
ELSEIFCFO0THEN502 

New Line: 502 PRINT@(23, 20) ,EL$"> ENTER A SELECTION 
:"; :FL=1:GOSUB10:IFCF=1 ORCF=2 THEN850 
ELSEIFCFO0THEN502 

Old Line: 850 PRINT@ ( 23 , 20) ,EL$ ;R$ "RETURNING TO MAIN 

MENU"N$ ; : CLOSE : 0PEN"0" , 1 , VP$ : PRINT#1 , I ; IT ; IN; ID 
;IS;IH;VT;VN;VD;EP;TD;R0;R1;R2;R3;R4;R5;R6;R7;R 
8 ; FC ; LC ; STR$ (CP#)+"D0" 

New Line: 850 CLOSE :0PEN"0",1 ,VP$ :PRINT#1 , 1; IT; IN; ID; IS; IH 
;VT;VN;VD;EP;TD;R0;R1;R2;R3;R4;R5;R6-R7;R8;FC; 
LC;STR$(CP#)+"D0" 

OldLlne: 860 F0RW9=lT0VN-l:PRINT#l ,P(W9,0) ;P(W9, 1 ) :NEXT 
:F0RW9=1T0IN-1:PRINT#1,I(W9):NEXT:CL0SE1 
:RUN"APS/BAS 

New Line: 860 F0RW9=lT0VN-l:PRINT#l ,P(W9,0);P(W9, 1):NEXT 
: F0RW9= 1T0IN-1 : PRINT* 1 , l( W9 ) : NEXT : CLOSE 

OldLlne: 1024 PRINT:PRINTTAB(10) ;FNRV$("D") ; "ELETE"; 

TAB(25);FNRV$("E ,, );"DIT";TAB(40);FFNRV$("N") 
; "EXT" 

NewLlne: 1024 PRINT :PRINTTAB( 10);FNRV$("D") ; "ELETE"; 

TAB ( 25 ) ; FNRV$ ( "E") ; "DIT" ; TAB(40 ) ; FNRV$ ( "N" ) ; 
"EXT"; TAB(55);FNRV$("F2")" POST INVOICES " 

ADDITIONS (Type the line followed by an < ENTER)) 

870 IFCF=2THENRUN"APP0ST/BAS"ELSERUN"APS/BAS" 

4. Type SAVE"APINVCE/BAS" and press <ENTER>. 

5. At TRSDOS Ready, make a backup copy of the 
diskette. 

RSBASIC COMPILER (26-4705) 

Following are corrections for four problems that may 
occur when using this package. 



1. ERROR 25 IN ISAM WITH TRSDOS 4.0 

When RUNBASIC is chaining a series of programs un- 
der the 4.0 Hard Disk operating system, it will give an error 25 
(PASSWORD PROTECTION) when it attempts to open the 
ISAM module a second time. This PATCH will correct that 
problem: 

PATCH RUNBASIC A=2AF2 F=11612B C=CD9D2B 
PATCH RUNBASIC A=2B9D F=000000000000000000 
C=11612B2323233652C9 

2. TRANSFERRING RSBASIC TO TRSDOS 4.0 HARD DISK 
SYSTEM 

The following PATCH is required whenever RSBASIC is 
transferred to a TRSDOS 4.0 Hard Disk system. This PATCH 
will allow RSBASIC to recognize drive numbers 4 through 7. 

PATCH RSBASIC/OLF R=27 B=53 F=12DB C=CE00 

3. DATA NOT FOUND IN ISAM FILES 

Sometimes with version 2.4, when calculating the record 
length and the number of records in a file, it is possible not to 
find a record that is actually in the file. The problem has 
occurred when OPENing two Binary files and two ISAM files 
at the same time. An OVERFLOW error persists regardless of 
the stack size or record length. Another manifestation of the 
problem is OPENING, WRITING, and CLOSING alternately 
between two ISAM files. In this case, another form of the error 
will occur after several records have been written. 

To correct the problem, apply the following PATCHes: 

PATCH RSBASIC/LIO A=3666 F=2024 C=0003 

PATCH RSBASIC/LIO A=369B F=0037 C=4256 

PATCH RSBASIC/OLF R=92 B=120 F=0000000000 C=DDE1C30956 

PATCH RSBASIC/OLF R=155 B=67 F=8B35 C=7756 

PATCH RSBASIC/OLF R=155 B=103 F=2024 C=0003 

PATCH RSBASIC/OLF R=155 B=156 F=0037 C=4256 

4. PATCHES FOR BOTH 26-4705 AND 26-4706 

Any program compiled under RSBASIC Compiler and 
operating under RUNBASIC or RUNTIME BASIC can de- 
velop a problem when processing ISAM files. This problem 
will be manifested as an unexpected termination of the pro- 
gram and a return to TRSDOS READY status without display- 
ing any error messages. The problem is caused when 
RUNBASIC (or RUNTIME BASIC) calls the module, 
RSBASIC/LIO, which handles the deletion of ISAM records). 
When deleting a particular group of ISAM records, the mod- 
ule fails to complete the deletion process, which causes 
RUNBASIC (or RUNTIME BASIC) to fail with a subsequent 
return to TRSDOS. These PATCHes will correct the problem: 

PATCH RSBASIC/LIO A=45C2 F=44 C=4A 

PATCH RSBASIC/LIO A=45EA F=1C C=22 

PATCH RSBASIC/LIO A=45FE F=3654183C C=A26118AD 

PATCH RSBASIC/LIO A=4602 F=00C3040A C=1A013654 

PATCH RSBASIC/LIO A=4606 F=76241860 C=0E3C00C3 

PATCH RSBASIC/LIO A=460A F=lA58A259 C=060A7024 

BISYNC 3270 (26-4715) 

The following PATCH allows the Model II, when operat- 
ing in a 3275 polled environment, to respond to EOTs. This 
will allow multiple Model lis which are emulating 3275s to 
operate on the same line with specific or general polling, as 
long as the Control Unit Addresses are unique. 

PATCH BIS3270 A=7D40 F=CC607D C=f 



BISYNC 3780 (26-4716) 

The following PATCH corrects problems with form feeds 
when using the 26-4716 BiSync Package. The problem is 
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characterized by invalid 'line skips' and 'page ejects'. The 
following PATCH corrects the problem and should result in 
properly printed documents: 

PATCH BIS3780 A=4BDD,F=C3EC,C=C3BE 

TRSDOS (26-4910) 

IMPORTANT NOTE: Page 40 of the January, 1982 
Microcomputer News contains a one-byte PATCH to BASIC 
on TRSDOS 2.0a. DO NOT use this PATCH. This information 
was released inadvertently and SYSTEM problems may re- 
sult if you install the PATCH. Please unPATCH using the 
following: 

PATCH BASIC-A = 65B6 F = 23 C = 21 

Following are several PATCHes for Model II TRSDOS. 
DISK I/O PATCHES 

We are now using several suppliers of the FDC controller 
for the TRS-80 Model II. Some of these chips have different 
timing constraints from the original chip. This has caused 
some machines to demonstrate problems when using the 
new chips. 

If your machine is demonstrating I/O problems with disk 
(lockups requiring system reset) then these PATCHes should 
be applied. We hesitate to recommend applying these 
PATCHes to a system that is working properly. However, 
there should be no effect at all in applying these PATCHes to 
any system with any of the chips in current use. 

For TRSDOS 1 .2a make the following PATCHes: 

PATCH IODVRS/SYS A=0B9C F=3ED8D3E4CDB10BDBE7 
C=F33ED8D3E43ED0D3E4 
PATCH IODVRS/SYS A=0BA5 F=DBE43EDOD3E4CDB10B 
C=FB000000CDBl0BDBE7 
PATCH FORMAT A=2D69 F=3ED0D3E4CD7F2DDBE7 
C=F33ED8D3E43ED0D3E4 
PATCH FORMAT A=2D72 F=DBE43ED0D3E4CD7F2D 
C=FB000000CD7F2DDBE7 

For TRSDOS 2.0a make the following PATCHes: 

PATCH SYSRES/SYS A=0E54 F=3ED8D3E4CD6C0EDBE7 
C=F33ED8D3E43ED0D3E4 
PATCH SYSRES/SYS A=OE5D F=DBE43ED0D3E4CD6C0E 
C=FB000000CD6C0EDBE7 
PATCH FORMAT A=2D19 F=3ED8D3E4CD2F2DDBE7 
C=F33ED8D3E43ED0D3E4 
PATCH FORMAT A=2D22 F=DBE43ED0D3E4CD2F2D 
C=FB000000CD2F2DDBE7 

2.0a TERMINAL PROGRAM-OPTIONAL PATCHES FOR 
CHANNEL B USE 

These PATCHes are to change the operation of the 
terminal program from serial channel A to serial channel B on 
a permanent basis. Do not apply these PATCHes unless you 
have a special situation which requires the use of the terminal 
program on channel B only. Please note that you should not 
try to use a Serial Printer (which also uses Channel B) once 
these PATCHes have been applied. If you attempt to do so, 
bytes will be intermixed on Channel B. 



PATCH 


TERMINAL 


A=343C 


F=3E61 


C=3E63 


PATCH 


TERMINAL 


A=3488 


F=3E60 


C=3E62 


PATCH 


TERMINAL 


A=352C 


F=3E64 


C=3E65 


PATCH 


TERMINAL 


A=3535 


F=3E64 


C=3E65 


PATCH 


TERMINAL 


A=353F 


F=3E64 


C=3E65 


PATCH 


TERMINAL 


A=3549 


F=3E61 


C=3E63 


PATCH 


TERMINAL 


A=3583 


F=3E60 


C=3E62 


PATCH 


TERMINAL 


A=36A9 


F=3E60 


C=3E62 


PATCH 


TERMINAL 


A=36D6 


F=3E60 


C=3E62 



2.0a HOST FUNCTION-OPTIONAL PATCHES FOR 
CHANNEL B USE 

These PATCHes are to change the operation of the 
HOST function from serial channel A to serial channel B on a 
permanent basis. Do not apply these PATCHes unless you 
have a special situation which requires the use of the HOST 
function on channel B only. Please note that you should not 
try to use a serial printer (which also uses serial channel B) 
once these PATCHes have been applied. If you attempt to do 
so, bytes will be intermixed on channel B. 
NOTE: If you have a 32K Model II replace SYSTEM64 with 
SYSTEM32 in the first three PATCHes. 

PATCH SYSTEM64 R=24 B=53 F=3E64 C=3E65 

PATCH SYSTEM64 R=24 B=98 F=3E61 C=3E63 

PATCH SYSTEM64 R=25 B=65 F=111500 C=111700 

PATCH SYSTEM/SYS R=107 B=205 F=41 C=42 

PATCH SYSTEM/SYS R=107 B=214 F=CB5E28E1CB9E0660 

C=CB5628E1CB960662 

PATCH SYSTEM/SYS R=107 B=231 F=0664 C=0665 

PATCH SYSTEM/SYS R=107 B=239 F=42 C=41 

PATCH SYSTEM/ SYS R=107 B=242 F=CB5 J 628C5CB960662 

C=CB5E28C5CB9E0660 

PATCH SYSTEM/SYS R=108 B=3 F=0665 C=0664 

PATCH SYSTEM/SYS R=61 B=141 F=CB5E C=CB56 

PATCH SYSTEM/ SYS R=62 B=3 F=41 C=42 

OPTIONAL PATCH FOR 2.0 AND 2.0A TRSDOS 

135 BAUD Option in SETCOM: 

The following PATCHes are designed to allow the option 
of selecting 135 BAUD under the SETCOM utility. This re- 
quires the deletion of 4800 BAUD as a selection since space 
would not allow an additional option. If circumstances require 
the use of both BAUD rates at some time, the user simply 
needs to reverse the Find and Change values. 

PATCH SYSTEM64 R=14 B= 1 1 8 F=1A47 C=7407 
PATCH SYSTEM/SYS R=104 B=125 F=C012 C=8700 

NOTE: 135 BAUD typed in SETCOM command indicates an 
actual BAUD rate of 134.5. 



Model II 

Chuck Rizzio 

RSCC 7430 Orange, CT 



BACKIT is a utility created on the Model II using a DO 
file. How many times have you started a BACKUP and left to 
get a cup of coffee only to find on your return: 

Destination Disk Ready? 

At TRSDOS Ready enter the following: 

BUILD BACKIT0 (ENTER) 

PAUSE Model II BACKIT Utility - Blank Disk in Drive 1 ??? 
(ENTER) 

FORMAT :1 {ABS} (ENTER)(ENTER> 

BACKUP :0 :1 {ABS} (ENTER>(ENTER> 

PAUSE BACKUP Complete = = = > 1 
(ENTER)(ENTER)(ENTER> 

To execute BACKIT type DO BACKIT (ENTER) at 
TRSDOS Ready. If you want to change the destination drive, 
simply change the second number in the BACKUP :0 :1. You 
can also do consecutive backups, i.e.: 

BACKUP :0 :1 {ABS} 

BACKUP :0 :2 {ABS} 

BACKUP :0 :3 {ABS} 
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Pocket Computer 



Pocket Computer Program: 



Fred Nachbaur 
1932 Clinton Street 
Los Angeles, CA 90026 



Since I acquired my TRS-80 Pocket Computer in De- 
cember 1980, the little jewel has kept me fairly busy finding 
ever more applications for it. I recently saw my first 
Microcomputer News (July 1 981 ) when my employer started 
receiving it after purchasing a Color Computer, and was 
delighted to find that the little Pocket Computer also had a 
column devoted to it. 

Before I get any further, please let me compliment 
TANDY CORPORATION for taking on the distribution of this 
excellent product. I find it perfectly suited for my needs as a 
technician and engineering student; when I began to dis- 
cover the sophistication viewpoint, this little powerhouse ob- 
soletes the scientific calculator much as the calculator 
obsoleted the slide rule for most applications. 

I am very much interested in seeing the Pocket Com- 
puter (and its "descendants") widely promoted and used as 
the powerful engineering tool it is. It is in this spirit that I am 
submitting a number of programs written at various phases of 
experience with the PC. Improvements could be made for 
most, but all work and some serve to illustrate some of the 
"fine points" of this computer. 

Before I get into the programs per se, I would like to 
share a few operational "tricks" I have come across, as well 
as a few other observations. 

When trying to cram a lot of program into the 1424 
program steps available (or less if flexible memories are 
needed) it is helpful to know that steps can be saved by 
omitting the ending quote mark after a string without affecting 
operation: 



1 



After a PRINTor PAUSE statement (also PRINT# and 
INPUT#) in a program if the end of the string is at the 
end of a line, e.g.: 

PRINT "HI, JOE 

PAUSE "HOW ARE YOU 

INPUT "LOAD DATE?";B$ 

: IF B$="YES" INPUT# "DATA 

will run, whereas 

PRINT "HI, JOE 

: PAUSE "HOW ARE YOU 

will not (HI.JOE : PAUSE will be PRINTed and the 
computer will not know what to do with HOW ARE 
YOU). Another possibility is when specifying the con- 
tents of a string variable: 

B=0 

: F$="WIN 

will work. Use this only when the $ variable will be 
displayed as the last item on a line, since in the above 

example F$ is actually loaded with WIN (W, I, N, 

<SPC>, <SPC>, <SPC>, <SPC». In other words, 
'trailing spaces" are not suppressed. 



2. In manual calculation mode, string variables may be 
loaded as above, e.g. typing < A> <SHFT> <$> < = > 
<SHFT> <"> <W> <l> <N> <ENTER> (A$ = "WIN) 

will load memory A$ with "WIN ." More useful is 

the fact that the trailing quote mark need not be used 
with CLOAD or CSAVE statements. This allows us to 
reserve <SHFT><L> toCLOAD" and <SHFT><S> to 
CSAVE," for example. Thus, as long as you are in the 
RUN or PRO mode, tape loading and saving opera- 
tions can be carried out by hitting <SHFT><L> (or 
<S», typing the file name, and hitting <ENTER>, 
thus saving two keystrokes. Interestingly, trailing 
spaces do not seem to matter in this case; evidently 
they are not recorded in the ID message. 
When using the printer and writing a program containing 
long strings in PRINT statements, memory can be saved by 
phrasing the string such that a single PRINT statement actu- 
ally prints two or more lines on the printer: e.g. 

10: PRINT " OPERATING INST-" 

: PRINT " RUCTIONS : SHFT" 
20: PRINT "A TO INPUT DATA" 

: PRINT "B TO REVIEW DATA" 

: PRINT "C TO EVALUATE" 

30: PRINT " " 

: END 

takes 108 program steps. The exact same result is obtained 
using this modification: 

10: PRINT " OPERATING INST- RUCTIONS: SHFT" 

20: PRINT "A TO INPUT DATA B TO REVIEW DATAC TO 

EVALUATE" 
30: PRINT " " 

: END 

but this one requires only 97 steps— saving 1 1 steps, which 
can make an appreciable difference in a busy program. 

Another note on printer use. When operating the com- 
puter without the printer, programs such as the following are 
useful for inputting data (such as values on a graph, coeffi- 
cients, etc.) to sequential variable locations: 



D=0 

PRINT "X("; USING "####"; D; ")=" 

" " AREAD A(D+27) 

IF D<50 LET D=D+1 

: GOTO 20 



This will not work, however, if the printer is on; all you get is a 
list of PRINT statements. An easy way to modify the program 
is to simply change the PRINT statement in line 20 to PAUSE, 
change the AREAD statement in 30 to INPUT, and move the 
definable program label (" ") to line 20 instead of 30. (Actu- 
ally, the " " in line 30 need not be removed, since the 
computer always goes to the first line containing the defin- 
able tag <SHFT><SPC». This method is very easy to use; 
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the computer flashes which division number is being input 
and asks for input with a ?. If you forget which division 
number is being input, type <SHFT><SPC> and the com- 
puter will again flash the X(n) = prompt, followed by ?. 

PROGRAMS 

Now on to the programs. First, a sequence of programs 
illustrating how the PRINT#, INPUT# and CHAIN commands 
may be used to the advantage of extending the computer's 
effective memory far beyond the 1424 steps available in 
RAM. The program sequence was designed while writing a 
paper on Fourier Analysis. These 1 7 programs evaluate the 
first 101 sine and cosine Fourier coefficients of an arbitrary 
repetitive (subject to 'certain restrictions) wave. The effective 
resolution of the program is 300 divisions, though only 1 50 
memory locations are used (one of the restrictions is that the 
second half of the wave is assumed to be an exact negative of 
the first half— i.e. odd-harmonic only symmetry). Please note, 
these programs are set up for automatic use with the printer. 



PROGRAM A 


1: 


"A" PRINT "FOURIER ANALYSIS" 




: PRINT "300 DIVS" 




: PRINT "ASSUME A(0)=0" 




: PRINT "ODD HARM ONLY" 


2: 


C=300, B= pi/150 


3: 


INPUT "DATA ON TAPE? (YES/NO)"; 1$ 


4: 


IF I$="YES" PAUSE "LOAD DATA TAPE" 




: INPUT #"DATA";A(27) 




: PAUSE "LOAD PGM TAPE" 




: CHAIN "C" 


5: 


IF I$="N0" PAUSE "STAND BY" 




: CHAIN "B" 


6: 


GOTO 3 


PROGRAM B 


1: 


"B" A=0 




: PAUSE "T/R OFF" 


2: 


" " PAUSE "Y("; USING "####"; A; " 


3: 


INPUT A(A+27) 




: GOTO 5 


4: 


GOTO 3 


5: 


A=A+1 




: IF A<151 GOTO 2 


6: 


PRINT "ASSUME Y(X+150)=-Y(X)" 


7: 


INPUT "FILE DATA? "; 1$ 




: IF I$="N0" GOTO 10 


8: 


IF I$="YES"PAUSE "SET LEVEL" 




: PRINT # "DATA"; A(27) 




: GOTO 9 


9: 


GOTO 7 


10 


: PAUSE "LOAD PGM" 


11 


: CHAIN "C" 


PROGRAM C 


1: 


"C" PRINT " " 




: PRINT "SINE TERMS (A)" 




: RADIAN 




: FOR H=l TO 33 STEP 2 


2: 


A=0, F=0, D=0, G=l 




: GOSUB 10 


3: 


A=E+A, F=F+B, D=D+1 




: GOSUB 10 


4: 


A=4E+A, F=F+B, D=D+1 




: GOSUB 10 


5: 


A=E+A 


6: 


IF D<C/2 GOTO 3 


7: 


A((H+19)/2)=2AB/3pi 


8: 


NEXT H 


9: 


BEEP 5 




: PRINT " " 




: CHAIN "D" 



10: E=A(D+27)*SIN HF 
: RETURN 

PROGRAM D 

1: "D" PRINT "N= A(N)=" 

2: FOR H=l TO 33 STEP 2 

3: E=A((H+19)/2) 

4: PRINT USING "###"; H; USING "######.######"; E 

5: NEXT H 

8: CHAIN "E" 

PROGRAM E— Same as "C" except: 

1: "E" PAUSE "SIN #35 TO 67" 
: FOR H=35 TO 67 STEP 2 



7: A((H-15)/2)=2AB/3pi 
9: BEEP 5 

: PRINT "T/R ON" 

: CHAIN "F" 

PROGRAM F— Same as "D" except: 

1: "F"PRINT"PGM - SIN 35 TO 67" 
2: FOR H=35 TO 67 STEP 2 
3: E=A((H-15)/2) 



7: PRINT "DATA TAPE, SET LEVEL" 
: PRINT* "S35-67"; A(10) 

8: PRINT "REPEAT - SHFT .F" 
. PRINT n T / R 0N n 

: CHAIN "G" 

PROGRAM G— Same as "C" except: 

1: "G" PAUSE "SIN #69-101" 
: FOR H=69 TO 101 STEP 2 



7: A((H-49)/2)=2AB/3pi 

9: BEEP 5 

: CHAIN "H" 

PROGRAM H— Same as "D" except: 

1: "H" PRINT "PRINT PGM - SIN 69-101' 
2: FOR H=69 TO 101 
3: E=A((H-49)/2) 



8: CHAIN "I" 

PROGRAM I 

2: "I" INPUT "FIND COS TERMS? ";I$ 



3: IF I$= 

C=l( 



'YES" PAUSE "T/R ON" 



B=pi/150 
RADIAN 
CHAIN "J" 
4: IF I$="N0" GOTO 6 
5: GOTO 2 

6: INPUT "RE-CONSTRUCT? ";I$ 
7: IF I$="YES" PRINT "T/R ON" 

: CHAIN "FOURSN" 
8: IF I$="N0" PRINT "END OF PROGRAM" 
: PRINT "BY F., NACHBAUR" 
: END 
9: GOTO 5 



FOURCOS 



"FOURCOS" C=300 
B=pi/150 
RADIAN 
CHAIN "J" 



PROGRAM J— Same as "C" except "SIN" is replaced by 

"COS" in lines 1 and 10. Chains "K". 
PROGRAM K— Same as "D" except "SIN" replaced by 

"COS" in line 1. Chains "L" 
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PROGRAM L— Same as "E" except "SIN" replaced by 

"COS" in lines 1 and 10. Chains "M". 
PROGRAM M— Same as "F" except "SIN" replaced by 

"COS" in line 1 . Chains "O" 
PROGRAM O— Analogous to "G." Chains "N". 
PROGRAM N— Analogous to "H." Chains "P". 
PROGRAM P 

1: "P" INPUT "RECONSTRUCT?"; 1$ 

2: IF I$="N0" PRINT "END OF PROGRAM" 

: PAUSE "BY F. NACHBAUR" 

: END 

3: IF I$="YES" PAUSE "T/R ON" 

: CHAIN "FOURSN" 
4: GOTO 1 

FOURIER SYNTHESIS-CONSTRUCTS A WAVEFORM 
FROM KNOWN FOURIER COEFFICIENTS. 



FOURSN 



1: "A" PAUSE "FOURIER SYSNTHESIS" 

: PAUSE "300 DIVS" 

: PAUSE "ASSUME A(O)=0" 
2: PAUSE "ODD HARMONICS ONLY" 

: PAUSE "STAND BY" 

: DEGREE 

: 0=300 
3: FOR D=27 TO 177 
4: A(D)=0 
5: NEXT D 
6: PAUSE "STAND BY" 

: CHAIN "D" 

PROGRAM B 

RUNS SIN OR COS 69-1 01 FIRST IF ALREADY IN MEMORY 

1: INPUT "COEFF. 69 - 101 IN MEM? "; 1$ 

: IF I$="YES" GOTO 4 
2: IF I$="NO" LET G$=" " 

: CHAIN "C" 
3: GOTO 1 
4: INPUT "SIN OR COS IN MEM? "; G$ 

: IF G$="SIN" CHAIN "H" 
5: IF G$="COS" CHAIN "0" 
6: GOTO 4 

PROGRAM H 

1: "H" PAUSE "S69-101" 

: FOR D=0 TO 150 
2: B=1.2D 

3: FOR H=69 TO 101 STEP 2 
4: A(D+27)=A(D+27)+A((H-49)/2)*SIN HB 
5: NEXT H 
6: NEXT D 
7: BEEP 5 

: PRINT "T/R ON" 

: CHAIN "C" 



PROGRAM 


1: 


"0" PAUSE "C69-101" 




: FOR D=0 TO 150 


2: 


B=1.2D 


3: 


FOR H=69 TO 101 STEP 2 


4: 


A(D+27 )=A(D+27 )+A( (H-49)/2 )*COS HB 


5: 


NEXT H 


6: 


NEXT D 


7: 


BEEP 5 




: PRINT "T/R ON" 




: CHAIN "C" 


PROGRAM C 


1: 


"C" PRINT "SIN COEFF 1 TO 33" 




: H=l 


2: 


PRINT "A("; USING "###"; H; ")= SHFT SPC" 


3: 


" " AREAD E 




: A((H+19)/2)=E 


4: 


H=H+2 



5: IF H<34 GOTO 2 

6: PRINT "T/R ON" 

: CHAIN "E" 

PROGRAM E— Similar to "H" above. Chains "D". 
PROGRAM D— Similar to "C" above. Chains "F". 
PROGRAM F— Similar to "H" above. Chains "G". 
PROGRAM G— Similar to "C," except skips programs G & H, 

if H done earlier. 
PROGRAM H— Same as above except line 7 changed and 

line 8 added: 



7: BEEP 5: IF G$="COS" CHAIN "J" 
8: CHAIN "I" 

PROGRAM I 

1: "I" INPUT "ANY COS TERMS?"; 1$ 

: IF I$="YES" CHAIN "J" 
2: IF I$="NO" CHAIN "K" 

PROGRAM K 

1: "K" PRINT "READY TO PRINT ANSWERS" 

: PRINT "T/R OFF" 
2: FOR D=0 TO 150 
3: A=A(D+27) 
4: PRINT USING "####"; "Y("; D; USING 

"««.####"; A 
5: NEXT D 
6: PRINT "REPEAT - SHFT K" 

PRINT "END OF PROGRAM" 

PAUSE "F. NACHBAUR" 

END 



FOURSC 



1: "A" PAUSE "FOURIER SYSNTHESIS" 

: PAUSE "300 DIVS" 

: PAUSE "ASSUME A(0)=0" 
2: PAUSE "ODD COS HARM ONLY" 

: PAUSE "STAND BY" 

: DEGREE 

: C=300 
3: FOR D=27 TO 177 
4: A(D)=0 
5: NEXT D 

6: PAUSE "STAND BY" 
7: IF G$="COS" CHAIN "J" 
8: CHAIN "0" 

PROGRAM O— Same as "O" above except chains 
PROGRAM J— Same as "C" except cosine version 

"L" 
PROGRAM L - Same as "E" except cosine version 

"M." 
PROGRAM M— Same as "D" except cosine version 

"P". 
PROGRAM P— Same as "F" except cosine version 

"N". 
PROGRAM N— Same as "G" except cosine version 

"O" if not done before. 
PROGRAM O— Same as "O" above except chains 
PROGRAM S— Same as "K". 



"J", 
chains 

chains 

chains 

chains 

chains 

"S". 



FOURIER ANALYSIS 

An earlier version of this program sequence, and a 
somewhat more general one, is FOURIER and its inverse 
FOURSYN. Both of these programs were designed for use 
without the printer, but could be modified easily. 
Program : Fourier Analysis 

Description : Up to 100 Y values of a repetitive function 
over one complete cycle are entered, and the Fourier 
coefficients (sine and cosine terms) of each harmonic up 
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to the tenth are evaluated. Data location of Fourier coeffi- 
cients is compatible with the Fourier Synthesis program 
of re-construction and further analysis of the original 
wave. "Number of divisions" MUST BE AN EVEN 
NUMBER. 
Operation : In DEF mode, <SHFT> <A> starts program. 
Enter # of divisions desired on prompt, then enter the 
sequential values of the function being evaluated using 
<SHFT> <SPC>. Enter number of harmonics needed. 
Computer will commence evaluating the coefficients up 
to the desired harmonic and will beep when ready. Re- 
peatedly hitting < ENTER) will then display first A and 
the cosine terms, then the sine terms. <SHFT> <B> will 
repeat or restart the display sequence. 

10: "A" RADIAN 

: PAUSE "FOURIER ANALYSIS" 
20: INPUT "# DIVS (MAX 100)"; C 

: D=0 
30: PRINT "Y("; USING "MM"; D; ")=" 
40: " " AREAD A(D+32) 
50: IF D<C LET D=D+1 

: GOTO 30 
55: INPUT "# HARMONICS-MAX 10="; A(31) 
60: PAUSE "WORKING" 

: B=2*pi/C 
70: FOR G= TO 1 
80: I=300+100*G 
90: FOR H=0 TO A(31) f 
100: IF G+H=0 GOTO 210 
130: A=0 

: F=0 

: D=0 

: GOSUB I 
140: A=E+A 

: F=F+B 

: D=D+1 

: GOSUB I 
150: A=E*4+A 
F=F+B 
D=D+1 
GOSUB I 
160: A=E+A 

170: IF D<C GOTO 140 
175: E=A*B/(3*pi) 
190: IF G=0 LET A(2*H+9)=E 
200: IF G=l LET A(2*H+10)=E 
210: NEXT H 
220: NEXT G 
230: BEEP 5 

: PRINT "READY" 
240: "B" FOR H=0 TO A(31) 
245: A=2*H+10 

: PRINT "A("; USING "«#"; H; ")="; USING; 

A(A) 
250: NEXT H 

255: IF A(31)=0 GOTO 280 
260: FOR H=l TO A(31) 
265: A=2*H+9 

: PRINT "B("; USING "M#"; H; ")="; USING; 

A(A) 
270: NEXT H 

280: PRINT "REPEAT-SHFT B" 
290: END 

300: E=A(D+32)*SIN(H*F) 
310: RETURN 

400: E=A(D+32)*COS (H*F) 
410: RETURN 



FOURIER SYNTHESIS 

Program : Fourier Synthesis 

Description : Known coefficients of sine and cosine terms 
of a complex wave (Fourier coefficients), up to 10 har- 
monics plus DC term, are input and the computer evalu- 
ates up to 100 equally spaced points for plotting 



purposes. It can be used in conjunction with Fourier 
Analysis program "FOURIER" to reconstruct a wave 
with up to ten of its component harmonics. 
Operation : In DEF mode, <SHFT> <A> starts program. 
Enter # of divisions desired and # of harmonic terms to 
be taken into account on prompt. Inputting of A (cosine) 
and B (sine) terms use <SHFT> <SPC>. Average (DC) 
level is defined as A /2, so for A(O) be sure the value is 
twice the average value of the function over a complete 
cycle. Computer will beep when all points have been 
evaluated; repeatedly hitting < ENTER) will sequentially 
display the function value and the corresponding divi- 
sion number for ease in plotting. For a repeat of the 
output sequence use <SHFT) <B) (in DEF mode). Hit- 
ting < ENTER) twice after the last data point has been 
displayed ends program. 



10: 


"A" DEGREE 








: PAUSE "FOURIER SYNTHESIS" 






: D=0 






20: 


INPUT "# HARMONICS 


(MAX 10)="; F 




30: 


INPUT "#DIVS="; C 
: A$= "B(SIN)#" 
: B$= "A(COS)#" 






40: 


H=INT(D/2) 
: E=D+1-2*H 






50: 


IF D+H=0 GOTO 80 






60: 


PRINT A$(E); USING 


"###"; H 




70: 


" " AREAD A(D+9) 






80: 


D=D+1 








: "lF D<2*F+2 GOTO 


40 




85: 


PAUSE "WORKING" 






90: 


FOR G=0 TO C 






100 


A=J/2 

: B=G*360/C 






110 


FOR H=l TO F 






120 


A=A+A(2*H+10)*COS(H*B) 




130 


NEXT H 






140 


FOR H=l TO F 






150 


A=A+A(2*H+9)*SIN(H*B) 




160 


NEXT H 






170: 


A(G+32)=A 






180 


NEXT G 






190: 


BEEP 5 

: PRINT "READY" 






200: 


"B" FOR G=0 TO C 






205: 


A=A(32+G) 






210: 


PRINT "Y("; USING 


"MM"; G; ")"; 1 


JSING; A 


220: 


NEXT G 






230: 


PRINT "REPEAT-SHFI 


B" 




240: 


END 







Memory: 

A - Sums Fourier terms; answer 
A$ - "B(COS)#" (Input Program only) 
B - Increment of X 
B$ - "A(SIN)#" (Input program only) 
C - # of divisions 
D - Input index 
E - String selector 
F - # Harmonics 
G - Index 
H - Index 

J-A(30) - Fourier coefficients 
A(32)-A(132)-Y values 

Data memory locations (A(10) to A(30) and A(32) to A(132)) 
compatible with Fourier Analysis program. 

TECH-3 

The next program, TECH-3, is an example of the applica- 
bility of the Pocket Computer to solution of commonly used 
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equations. Certainly other approaches could be used to 
solve for any of three or more variables given the rest, but the 
approach used for the "A" and "B" to accomplish this is 
simple and works well. The "C" section may be of interest, as 
it is a simple way to get an equivalent resistance of a number 
of parallel resistances (or parallel inductances without mutual 
coupling) or series capacitances. Note that it simply sums the 
conductances and then inverts the total conductance if no 
further values are input. The "F" program, it should be noted, 
does not give the correct sign of the angle (i.e. 180° off) in 
quadrants 3 and 4— it would not be difficult to correct this, but 
it may be just as well to use common sense along with the 
answers given by the computer. 
Program: "TECH-3" - Resonance, F(3db), Parallel Resistors, 

Coil Q, Complex Number Conversion 
OPERATION: 

<SHFT> <A> - Resonance 
Solve for? - enter F, C or L 

Inputs other two variables and displays answer, includ- 
ing units (kHz, pF, mFD, etc.) 
Assumes B 2 >>2d 
Repeats "Solve for ?" 
<SHFT> <B> - RC network 3db (halfpower) frequency 
Solve for ? - enter F, C, or R 

Inputs other two variables and displays answer, includ- 
ing units. 

Repeats "Solve for ?" 
<SHFT> <C> - Parallel Resistors. 

Input "R = " - first R value. Repeat input cycle until all 
values entered. 

Push < ENTER) without entering R value for answer, 
expressed in ohms, kilohms, or megohms as applicable. 
<SHFT> <D> - Coil Q , 
Enter F, L, R. 

Successively prints X = abs. value of reactance, coil Q, 
and F(BW) bandwidth assuming coil Q contributes only 
damping in circuit. 
Repeats 
<SHFT> <F> - Complex Number Conversion 
Input: "MAGNITUDE = " 
"ANGLE = " 
"REAL=" 
"IMAG = J" 
Hitting < ENTER) without inputting a variable causes 
next input statement to appear, cycling through until data 
is entered. E.g. to find polar equiv. of 3 + J4 hit 
< ENTER) twice, input Real part = 3, input Imag. part 
= J4 

Answer (polar) displayed as MAGNITUDE/ANGLE, e.g. 
5./53.13010235 

Answer (rectangular) displayed as REAL + J IMAG, e.g. 
3. + J4. 

Returns to same type of problem on input cycle; if you 

want to work the other type of problem (going the other 

direction) just hit (ENTER) until either MAGNITUDE or 

REAL appears 

NOTE: All programs above require inputs in basic units (i.e. 

farads, ohms, hertz, henries) (except for "F"), even if they 

contain conversion steps to reduce the quantity to a 'nicer' 

number. So be sure to take this into account when going from 

one program to another with one or more of the variables 

remaining the same in the new program. E.g. if F = 1.5 and 

B$ = "MHZ" it would not be correct to use the value of F (i.e. 



1.5) for 1.5 mHz in the new problem. You could enter 
"F = F*Exp6" before running the second program, or you 
could re-enter the value itself if it is simple. 

2: 



"A"PAUSE "RESONANCE" 
: D=6 

INPUT "SOLVE FOR? ";A$ 

GOTO D 

IF A$="F" GOTO 10 

IF A$="L" GOTO 20 

IF A$="C" GOTO 30 

GOTO 4 

INPUT "L=";L 

INPUT "C=";C 
12: F=l/92pi.SQRLC)) 

: B$=" HZ" 

IF F>Exp3 LET F=F/Exp3 

: B$=" KHZ" 

IF F>Exp3 LET F=R/Exp3 

: B$=" MHZ" 

V=F 

: GOTO 200 
20: INPUT "F=";F 
21: INPUT "C=";C 

L=l/((2piF)~2*) 

: B$=" H" 

IF L<1 LET L=L*Exp3 

: B$=" MH" 

IF L<1 LET L=L*Exp3 

: B$=" UH" 

V=L 

: GOTO 200 
30: INPUT "F= 
31: INPUT "L=";L 
32: C=l/((2piF)"2*L) 

: B$ = " FD" 

IF C<1 LET C=C*Exp6 

: B$=" MFD" 

IF C<1 LET C=C*Exp6 

: B$=" PF" 
35: V=C 

: GOTO 200 
42: "B"PAUSE "RC 3DB FREQUENCY" 

: D=46 

: GOTO 4 
46: IF A$="F"GOTO 50 
47: IF A$="R"GOTO 60 
48: IF A$="C"G0T0 70 
49: GOTO 4 
50: INPUT "R=";R 
51: INPUT "C=";C 
52: F=l/92piRC) 

: B$="HZ" 
53: IF F>Exp3 LET F=F/Exp3 

: B$="KHZ" 

IF F>Exp3 LET F=F/Exp3 

: B$="MHZ" 

V=F 

: GOTO 200 

INPUT "F=";F 

INPUT "C=";C 
62: R=l/(2piFC) 

: B$="0HMS" 
63: IF R>Exp3 LET R=R/Exp3 

: B$=" K" 
64: IF R>Exp3 LET R=R/Exp3 

: B$=" MEG" 
65: V=R 

: GOTO 200 
70: INPUT "F=";F 
71: INPUT "R=";R 
72: C=l/(2piFR) 

: B$=" FD" 
73: IF C<1 LET C=C*Exp6 

: B$="MFD" 
74: IF C<1 LET C=C*Exp6 

: B$=" PF" 
75: V=C 

: GOTO 200 
200: PRINT USING "#######.####";" »; a$ • "="• v " 
";B$ ' ' 



13: 



14: 



15: 



22: 



23: 



24: 



25: 



33; 



34: 



54 



55 



61 
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;b$ 



202: GOTO 4 

300: "C"PAUSE "PARALLEL RESISTORS" 

: S=0 
310: INPUT "R=";R 

: S=S+1/R 

: GOTO310 
320: R=l/S 

: B$="OHMS" 
330: IF R>Exp3 LET R=R/Exp3 

: B$="K" 
340: IF R>Exp3 LET R=R/Exp3 

: B$="MEG" 
350: PRINT USING "####.####"; "R(T)=" ;R; " 
360: GOTO 300 
400: "D" PAUSE "COIL Q" 
410: INPUT "F=";F 
420: INPUT "L=";L 
430: INPUT "R=";R 
440: X=2piFL 

: Q=X/R 

: B$="OHMS" 
442: IF X>Exp.3 LET X=X/Exp3 

: B$="K" 
444: PRINT USING "####.###"; "X=";X; " ";B$ 
446: PRINT "Q=";Q 
448: D=F/Q 

: B$="HZ" 
450: IF D>Exp3 LET D=D/Exp3 

: B$="KHZ" 
452: IF D>Exp3 LET D=D/Exp3 

: B$="MHZ" 
454: PRINT "F(BW)=";D; " ";B$ 
460: GOTO 410 
500: "F" PAUSE "COMPLEX # CONV." 

: USING 
510: INPUT "MAGNITUDE=";G 
520: INPUT "ANGLE=";T 

: GOTO 600 
530: INPUT "REAL=";H 
540: INPUT "IMAG.=J";J 

: GOTO550 
545: GOTO 510 
550: G=SQR(HH+JJ) 

: T=ATN(J/H) 
560: PRINT G;'7";T 
5 70: GOTO 530 
600: H=G*COS T 

: J=G*SIN T 
610: P=SGN J 

: J=ABS J 

: B$="+" 
620: IF P=-l LET B$="-" 
630: PRINT H;B$;"J";J 
640: GOTO 510 

TRF-1 

In a similar vein, the TRF-1 program does the necessary 
manipulation of circuit parameters to design a single-tuned 
RF stage. "A" evaluates required inductor parameters for 
given bandwidth, center frequency, and capacitance, also 
evaluating resonant gain given transconductance and circuit 
parameters of an FETor pentode amplifier. "B" evaluates the 
bandwidth resulting when a specified inductor is used. "C" 
and "D" are analogous programs for bipolar transistor ampli- 
fiers with the tuned circuit at the input (as opposed to the 
output for "A" and "B") taking tuned circuit transformer ration 
into account. "F" plots amplitude (gain) and phase shift char- 
acteristics for a completed circuit. "G" is similar but finds only 
one value at a time whereas" F" automatically evaluates A v 
and phase shift at predetermined intervals between predeter- 
mined end points. "H" evaluates the effective input admit- 
tance to a transistor stage with tapped L to aid in running 
programs " B" and "C." My original plan was to write an entire 
series of programs like this, so that double-tuned, stagger- 
tuned, and other amplifier configurations could be rapidly 



and easily designed. Amateur and other radio operators and 

designers would definitely find such a package useful. 

Program: Single-staged single-tuned Narrow-band 
Amplifiers 

OPERATION 

<SHFT> <A> - Pentode Amplifier : see Fig. 1. 

Input G m , R p , R L , C,f res , required bandwidth BW. If result- 
ing poles are real, pauses "Try larger C"; Input C. 
Finds required L, gives A , R (col , = equivalent series 
resistance of coil, Q (coil) , circuit (loaded) Q. 

<SHFT> <B> - Pentode Amplifier Bandwidth 

Input G m , R p , R L , C, L, R coil ; if variable remains same as 

before, hit < ENTER). 

Finds f res , Bandwidth,A , circuit Q, Q coil 

<SHFT> <C> - Bipolar Transistor Amplifier with Tapped L ; 
Fig 2 

Input transformer ratio a: 1 = N s /N p (less than one) 
lnputG m , R p (output resistance of previous stage, etc.), R L 
(input resistance to transistor), C, f res , req. BW. 
Finds required L, gives A , finds R coi , allowable, Q coil , 
circuit Q. 

<SHFT> <D> - Bipolar Transistor Bandwidth 

Input Q^i of proposed inductor, L, transformer ratio a: 1 , 

G m . R P , Rl, C. 

Finds f res , BW, A , Q (circuit), Q coil 

<SHFT> <F> - Amplifier Amplification and Phase Shift Plotter 
Input F min (lowest frequency in plot), F max , and number of 
divisions desired between the end points. Prints Div # 
and corresponding Frequency, hitting < ENTER) 
causes it to display MAGNITUDE/PHASE SHIFT (for 
example 1 .5556/45. = amplification 1.5556, phase 45° 
Hit (ENTER) again and it goes to next point on plot. 
When done, goes to <SHFT> <G>. 

<SHFT> <G> - Input F, Evaluates A v and Phase Shift . 
Repeat for as many different values of F desired. 

<SHFT> <H> - Bipolar Transistor Input Capacitance (includ- 
ing Miller effect) and Input R esistance (including biasing 
R's). 

Input l c (quiescent collector current), Beta, R a and R b , 
R(LOAD) = collector load resistance & input resistance 
to next stage, C c (collector to base capacitance), F T (cur- 
rent gain BW product). 

Finds total input capacitance C e + (1 +A)C C> total input 
resistance ( = R L in A-D above) 
Enter "A", goes to C above, except also input "C(ext)" 
(external trimmers, variation swampers, circuit wiring, 
etc.) and sums C in and C ext . 

Enter "B", goes to D above, except also inputs C ext ; See 
Fig. 3 

NOTE: Input all data in basic Units (e.g. hertz, farads, 
henries, ohms, amperes); e.g. to input 5.0mA. enter 
'.005' or 5Exp-3. All answers printed in basic units. 



-1 PROGRAM LINE CONTENT 


10 


"A"PAUSE "TRF 


-1 PENTODE 




: D=60 








: J=l 






20 


INPUT 


■G(M)=" 


;G 


30 


INPUT 


'R(P)=" 







: 0=0JJ 




40 


INPUT 


'R(L)=" 


;N 


50 


INPUT 


'C=";C 




55 


GOTO D 






60 


INPUT 


'F(0)=' 


;F 




: W=2p 


iF 
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62: 


INPUT "BW=";B 




64: 


GOTO 75 




70: 


INPUT "L=";L 




72: 


INPUT "R(COIL)=";P 




74: 


GOTO 160 




75: 


IF (1/O+1/N)=0 ilT S=9Exp99 
: GOTO 80 




77: 


S=l/(l/0+l/N) 




80: 


R=Jj/(2piBC) 

: IF R>=S PAUSE "TRY LGR C" 

: INPUT "C=";C 

: GOTO 80 




90: 


L=1/(WWC) 




95: 


IF S=9Exp99 LET P=L/(CR) 
: GOTO 100 




97: 


P=RS/(S-R) 
: P=P/(JJ) 
: P=L/(CP) 




100. 


A=GR/J 

: Q=WL/P 

: K=R/(JJWL) 




110 


PRINT "L=";L 




120 


PRINT "A(0)=";A 




130 


PRINT "R(COIL)=";P 




135 


PRINT "Q(COIL)=";Q 




140 


PRINT "Q=";K 
: END 




150 


"B" J=l 

: D=70 

: PAUSE "PENTODE BW'GOTO 20 




160 


W=1/SQR(LC) 
: F=W/2pi . 




170 


IF 1/C+1/N=0 LET S=9Exp99 
: GOTO 190 




180 


S=l/(l/0+l/N) 

: IF D=160 LET'R=1/91/S+1/(JJQWL)) 

: P=WL/Q 

: GOTO 195 




190 


R=1/(1/S+1/L(CP))) 




195 


B=JJ(2piRC) 
: A=GR/J 
: K=R/(JJWL) 
: Q=WL/P 




200 


PRINT USING; "F(0)=";F 




210 


PRINT "BW=";B 




220 


PRINT "A(0)=";A 




230 


PRINT "Q=";K 




240 


PRINT "Q(COIL)=";Q 

: END 




250 


"F" PAUSE "A(V) VS F" 




260 


INPUT "F(MIN)=";D 




270 


INPUT "F(MAX)=";E 




280 


INPUT "# DIVS=";H 
: H=(E-D)/H 
: 1=0 




290 


W=2piD 
: DEGREE 




300 


: X=1/(LC)-WW 
: Y=WJJ/(RC) 
: V=SQR(XX+YY) 
: IF X=0 LET X=Exp-50 




305 


: U=ATN(Y/X) 
: U=90-U 




310 


: V=(WJG/C)/V 

: IF X<0 LET U=U-180 




312 


: IF I=-l GOTO320 




315 


: PRINT USING "####"; "DIV #";I;USING; 


' F 


320 


: PRINT V;"/";U 

: IF I=-l GOTO 350 




330 


: D=D+H 
: 1=1+1 
: IF D>E GOTO 350 




340 


: GOTO 290 




350 


: "G" INPUT "F=";D 




355 


: I=-l 

: GOTO 290 




360 


: "C"PAUSE "TRF-1 BIPOLAR" 
: D=60 




370 


: INPUT "RATIO=";J 




380 


: GOTO 20 





;D 



390: 



400 
410 
420 
430 

440: 
450: 

460: 

470 
480 
490 

500 
510 
520 

530: 
540: 

550: 

552: 
555: 

560: 

570: 

580: 



"D"PAUSE "BIPOLAR BW" 

: D=160 

: INPUT"Q(COIL)=";Q 

INPUT "L=";L 

GOTO 370 

"H"PAUSE "INPUT C + R" 

INPUT "I(C)=";G 

: G=40G 

INPUT "BETA=";T 

INPUT "R(A)=";M 

: N=l/M 

INPUT "R(B)=";M 

: N=1/(N+1/M+G/T) 

INPUT "R(LOAD)=";Z 

INPUT "C(C)=";C 

INPUT "F(T)=";E 

: C=C*(l+GZ)+G/2piE 

PRINT "C(IN)=";C 

PRINT "R(IN)=";N 

INPUT "FIND Q (A) OR BW (B)";M$ 

: GOTO 540 

END 

INPUT "RATIO=";J 

: C=CJJ 

INPUT "R(P)=";0 

: 0=OJJ 

PRINT "C(REFL)=";C 

INPUT "C(EXT)=";Z 

: C=C+Z 

IF M$="A" LET D=60 

IF M$="B" INPUT "Q(COIL)=";Q 

: D=160 

GOTO D 



FIXED MEMORY LOCATIONS 

A - A(o) Amplification at resonance (A and B - A v ; C and D - 
A c ) 

B - Bandwidth, Hz. 

C - Capacitance C, Farads 

D - Line tag (A,B,C,D,H), Frequency variable F (F and G) 

E - F(MAX) (F only), F T (H only) 

F - F , resonant frequency, Hz. 

G - G m (H only - also temporarily l c ) 

H - Increment in F (F only) 

I - Index (F only), jump variable (G only) 

J - Transformer turns ratio a 
: 1 (A and B - set equai to 1) 

K - Circuit Q 

L - Inductance, Hys. 

M - R a and R b ; used to evaluate R 0N) (H only), M$ = "A" or 
"B" (H only) 

N - (A and B-R(L) = input resistance to next stage), (C,D,H- 
input resistance to transistor base inch biasing nets) 

O - Parallel external resistance (A and B R(P) = plate resis- 
tance, C&D R(P) = output resistance of previous stage). 
Reflected to secondary value. 

P - Coil resistance (series) R coi , 

Q - Coil Q 

R - Total equivalent parallel resistance R' 

S - R(P) paralleled with R(L) (1/o +1/N) 1 

T - Beta (H only) 

U - Phase < of amplification (F and G only) 

V - Amplitude of amplification (F and G only) 
W - Angular resonant frequency 

X - Re(A v (F&G only) 

Y - lm(A v ) (F&G only) 

Z - R(LOAD), C(EXT) (H only) 
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SILINEQ 

Finally, there is SILINEQ, which solves second, third or 
fourth order determinants in order to solve simultaneous 
linear equations such as would be obtained from mesh-cur- 
rent or node-voltage circuit analysis, or any such set of simul- 
taneous linear equations. Though there are a number of 
approaches that could be used which could use less memory 
space and/or negotiate higher than fourth-order matrices, 
this one has the advantage that since it evaluates the determi- 
nants directly the entire process is very much faster than if 
they were evaluated using FOR-NEXTor GOSUB-RETURN 
loops; it takes only about 20 seconds from the time the last 
parameter is input until the answers appear for a fourth-order 
set of simultaneous equations. Seldom does the need arise 
for higher than fourth-order solutions, so I have not devoted 
much attention to this aspect. 



1: 


"A 


' PRINT "SIMULTANEOUS" 




PRINT "LINEAR" 




PRINT "EQUATIONS" 




PRINT "BY F. NACHBAUR" 




CLEAR 


20: PRINT " " 


: INPUT "ORDER (2, 3, OR 4)";Z 


30: 


IF Z=2G0T0 101 


40: 


IF Z=3G0T0 101 


50: 


IF Z=4G0T0 101 


60: 


BEEP 1 


: PAUSE "ERROR" 


: GOTO 20 


101: INPUT "H(11)=";A 


: INPUT" H(12)=";B 


103 


: IF Z=2G0T0 107 


104 


: INPUT "H(13)=";C 


105 


: IF Z=3G0T0 107 


106 


: INPUT "H(14)=";D 


107 


: INPUT "H(21)=";E 


: INPUT"H(22)=";F 


109 


: IF Z=2G0T0 122 


110 


: INPUT "H(23)=";G 


111 


: IF Z=3G0T0 113 


112 


: INPUT "H(24)=";H 


113 


: INPUT "H(31)=";I 


: INPUT"H(32)=";J 


: INPUT "H(33)=";K 


116: IF Z=3GOTO 122 


117: INPUT "H(34)=";L 




INPUT"H(41)=";M 




INPUT "H(42)=";N 




INPUT "H(43)=";Q 




INPUT "H(44)=";P 


122: INPUT "Y(1)=";Q 


: INPUT "Y(2)=";R 


124: IF Z=2G0T0 600 


125: INPUT "Y(3)=";S 


126: IF Z=3GOTO 700 


127: INPUT "Y(4)=";T 


130: U=A*(FKP+LGN+JOH~HKN-LOF-JGP)-E*(BKP+JOD 


+NLC-DKN-LOB- CJP) 


140: U=U+I*(BGP+CHN+FOD-DGN-HOB-FCP)-M*(BGL+CHJ 


+FDK-JGD-KHB- FCL) 


150: V=Q*(FKP+LGN+JOH-HKN-FOL-JGP)-R*(BKP+LCN 


+J0D-DKN-L0B- CJP) 


160: V=V+S*(BGP+CHN+FOD-DGN-HOB-FCP)-T*(BGL 


+CHJ+DFK-DGJ-HKB- FCL) 


: V=V/U 


170: W=A*(RKP+GLT+SOH-HKT-ROL-GSP)-E*(QKP+CLT 


+SOD-DKT-QOL- CSP) 


180: W=W+I*(QGP+CHT+ROD-DGT-QOH--CRP)-M*(QGL+CHS 


+RKD-GDS-QKL-RCL) 


: W=W/U 


190: X=A*(FSP+LRN+JTH-HSN-FLT-JRP)-E*(BSP+LQN 


+JTD-DSN-BLT- QJP) 


200: X=X+1*(BRP+QHN+FTD~DRN-BHT~QFP)-M*(BRL+QHJ 


+FSD-DRJ-BHS-QFL) 






x=x/u 



210:Y=A*(FKT+GSN+JOR-RKN~FSO-GJT)-E*(BKT+CSN 

+JOQ-QKN-BSO-CJT) 
220: Y=Y+I*(BGT+CRN+FOQ-QGN-BRO-CFT)-M*(BGS+ 

CRJ+QFK-QGJ-BRK- CFS) 

: Y=Y/U 

: GOTO 750 
600: U=A*F-B*E 

: V=Q*F-R*B 

: W=R*A-Q*E 

: V=V/U 

: W=W/U 

: GOTO 750 
^00: U=A*(FK-GJ)-B*(EK-GI)+C*(EJ-FI) 

: V=Q*(FK-JG)-R*(BK~CJ)+ S*(BG-FC) 

: V=V/U 
720: W=-Q*(EK-GI)+R*(AK-CI)-S*(AG-CE) 

: W=W/U 

: X=Q*(EJ-FI)- R*(AJ-BI)+S*(AF-BE) 

: X=X/U 
750: BEEP Z 

: PRINT "X(l)=" 

: PRINT V 
760: PRINT "X(2)=" 

: PRINT W 

: IF Z=2GOTO 20 
770: PRINT "X(3)=" 

: PRINT X 

: IF Z = 3GOTO 2(3 
780: PRINT "X(4)=" 

: PRINT Y 

: GOTO 20 

"pi" should be replaced in all of the above programs 
with the pi symbol on the pocket computer (SHFT UP 
ARROW) or the value 3.141592654. 



Pocket 

Bucis, 




r 

Fixes 



ELECTRICAL ENGINEERING I (26-3520) 

Corrections to the Manual 

On page 7 under the heading You type: 

SHFT] [a] (plus) 

should be moved up one row so that the line reads: 
66.4250693-76.32851033 |SHFTJ \a\ (plus) 



On the same page toward the bottom right hand side, the 
number 55.99999996 should be replaced by the number 
56.0000556. 

On page 12 the program name AMPEDS is incorrect. It 
should be AMPDES. 



\ 



U«* 



vv 
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Convert Integer 
to Binary 

Marvin E. Wilbome, III 
Rt. 5, Box 314 
Danville, VA 24540 



Here is a pocket computer program that converts a 
positive integer from to 1023 into binary, using successive 
division. 



10: 



'A" 





: PAUSE "DECIMAL TO 


BINARY." 


20: 


INPUT "ENTER DECIMAL 


NUMBER.", 


30: 


IF A<0 THEN 20 




40: 


IF AM023 THEN 20 




50: 


IF AOINT(A) THEN 20 




60: 


B=0 

: C=0 
: Z=A 




70: 


D=A/2 
: E=D-INT(D) 




80: 


F=E*2*(10"B) 




90: 


C=C+F 




100 


IF D<1 THEN 130 




11)0 


B=B+1 




120: 


A=INT(D) 
: GOTO 70 




130: 


PRINT Z; " = "; C 




140: 


INPUT "ENTER <Y> TO 


CONTINUE." 


150: 


IF G$="Y" THEN 20 




160: 


END 





G$ 



To use the program, press <SHFT> <A> in the DEF 
mode. The computer will display "Decimal to Binary," and it 
will then ask for a number (0-1023). For the number 1023 it 
takes approximately 1 1 seconds to get the binary equivalent. 

Here is an alternate method of conversion: 

You enter a positive integer from - 65535 and the binary 
equivalent is printed. 

The program works fine on the printer as well as the LCD 
display. 



10 


"A" INPUT "ENTER DECIMAL NUMBER 


20 


IF B<0 THEN 10 


30 


IF B>65535 THEN 10 


40 


IF BOINT (B) THEN 10 


50 


C=INT (B/256) 


60 


D=(B/256-C)*256 


70 


E=INT (C/16) 


80 


F=(C/16-E)*16 


90 


G=INT (D/16) 


m 


5: H=(D/16-G)*16+1 




: E=E+1 




: F=F+1 




: G=G+1 


lit 


5: GOSUB E*10+200 


12{ 


): I$=A$ 


138 


): GOSUB F*10+200 


14* 


>: J$=A$ 


151 


): GOSUB G*10+200 


M 


>: K$=A$ 


17* 


>: GOSUB H*10+200 


181 


: PRINT B; " DECIMAL =" 


192 


: PRINT 1$; J$; K$; A$ 


206 


5: END 


2ii 


): A$="0000" 




: RETURN 


m 


): A$="0001" 




: RETURN 


23? 


: A$="0010" 




: RETURN 


240 


: A$="0011" 




: RETURN 



250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 



A$="0100' 
: RETURN 
A$="0101' 
: RETURN 
A$="0110' 
: RETURN 

A$="0iir 

: RETURN 
A$="1000' 
: RETURN 
A$ = "1001 ,: 
: RETURN 
A$="1010" 
: RETURN 
A$="1011" 
: RETURN 
A$="1100" 
: RETURN 
A$="1101" 
: RETURN 
A$="1110" 
: RETURN 
A$="llll" 
: RETURN 



65535. DECIMAL = 1111111111111111 
256. DECIMAL = 0000000100000000 
255. DECIMAL = 0000000011111111 
65535. DECIMAL = 1111111111111111 
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Color Computer 
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is 



With the new year well under way, it's probably time to do 
a little house cleaning. I have received some interesting ques- 
tions from Color Computer users and over the next couple of 
months, I'm going to attempt to answer some of the more 
general ones. 

"How do you save Assembly Language Programs?" 

Toward the end of 1981 , 1 read numerous articles about 
saving assembly language programs using Extended Color 
BASIC and Disk Extended BASIC. Most of what was said was 
that using Hexadecimal numbers would not work. To my 
knowledge, this is not true. The correct format for saving 
assembly language programs using Extended BASIC is as 
follows: 

CSAVEM "filename," &Hstart, &Hend, &Hexecute 
"filename" is an eight character maximum name for your 

program. 
&Hstart is the hexadecimal starting address for your 

program. 
&Hend is the hexadecimal ending address for your program. 
&Hexecute is the transfer location or beginning of the actual 
program. 

Notice that when using hexadecimal numbers, the&H is 
required. This tells the computer that the following values are 
in Hex. 

Extended Color BASIC is required to save a program in 
this fashion. 

With the Disk system, the format is virtually the same: 

SAVEM "filename" ,&Hstart,&Hend,&Hexecute 

Again, the &H is necessary to tell the computer that the 
numbers are in Hex. 

When saving assembly language programs using the 
Disk system, there is one additional thing to keep in mind. If 
your program resides in low memory, with starting addresses 
around &H1000 and you save it to disk, when you try to 
LOADM the program from disk, you'll probably get an I/O 
error. The way to get around it is when loading the program 
from tape (assuming it was on tape in the first place), use the 
offset capability of the CC to move the program up in mem- 
ory. I have found that about 2050 bytes (&H802)is usually 
enough. Then save the program using the new offset ad- 
dresses to disk. (Don't forget to extend the ending address 
also.) The reason is this: when the machine powers up under 
Disk Extended BASIC, the ROM grabs about 2K of free 
memory, just beyond Video RAM (usually located at 
&H400— &H600). If you've PCLEARed more memory for 
graphics, the disk buffer will be placed above those graphics 
"pages." If your program starts in this area of memory, you 
could be saving the data buffer for the disk along with your 
program. When you try to load the program back into the 
machine, the information that was saved from the data buffer 
garbles up your program, giving you an I/O error. As reports 
go, I cannot say whether saving programs from low memory 
will work any better using decimal (base 10) numbers in- 



stead. I usually work with Hex when saving programs (on 
either tape or disk). 

"Is it possible to put on a second set of joysticks?" 

In reference to some inquiries about adding additional 
joysticks (more than two at a time), there are no plans for the 
near future to offer a modification and/or "black box" to 
enable more than two joysticks to be attached to the Color 
Computer. Such a modification would obsolete current soft- 
ware (in excess of 27 Program Paks, most of which offer 
joystick option) and would probably require internal changes 
in the Color Computer structure itself (ROMs, I/O routines, 
etc.). This is not to say that it cannot be done, simply that 
Radio Shack has no plans to do it in the foreseeable future. 

"Is there any way through an outside device that both 
sound and graphics operate at the same time? If so 

what?" 

Precluding any after-market ideas, this is not that feasi- 
ble. The sound is controlled by one of the Input/Output (I/O) 
chips in the Color Computer. The sound can originate from 
four different sources and is processed through the Digital to 
Analog (D/A) multiplexer. To enable an external device to be 
attached would require an additional I/O chip. Since the 
Central Processing Unit (CPU) and the dynamic RAM con- 
troller (SAM) control what is going on inside the computer, to 
have simultaneous sound and action would require changes 
in both the CPU and SAM chips. Again, Radio Shack has no 
plans in the foreseeable future for this type of modification. As 
far as an external device is concerned, if the necessary logic 
were to be placed inside the "external box" and control from 
the machine was passed to that "box," it probably could be 
done. (It would probably carry a heavy price tag too!) 

"How might a menu be set up using DSKI$ to list all the 
programs in the directory and have them run on 

request?" 

On page 62 of the Color Computer Disk System Owners 
Manual and Programming Guide is a program listing which 
you can modify to list the "menu" from which you can select 
the program you wish to run. The program is as follows: 

5 CLEAR 1000 

10 FOR X=3 TO 11 

20 DSKIS 0,17,X,A$,B$ 

30 C$= A$ + LEFT$(B$,127) 

40 NAM$(0) = LEFT$(C$,8) 

50 EXT$(0) = MID$(C$,9,3) 

60 FOR N=l TO 7 

70 NAM$(N) = MID$(C$,N*32+1,8) 

80 EXT$(N) = MID$(C$,9+N*32,3) 

90 NEXT N 

100 FOR N=0 TO 7 

110 IF EXT$(N) = "DAT" AND 

LEFT$(NAM$(N) ,1)<>CHR$(0) THEN PRINT 

NAM$(N) 
120 NEXT N 
130 NEXT X 
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The format for the DSKI$ command, which allows direct 
reading of disk sectors from Basic, is in line 20. Its syntax is as 
follows: 

DSKI$ drive #, track #, sector #, string variable #1 , string 
variable #2 

The drive # can be 0, 1 , 2, or 3 (remember you can have 
up to four drives on the Disk system). You can read any of the 
35 tracks (numbered to 34, with the directory track being in 
the middle at track 1 7). Each sector can contain 256 bytes of 
data. The string variable #1 reads the first 128 bytes while 
string variable #2 reads the second 128 bytes. 

The sectors this program is looking at are specified in line 
1 0. Since the operating system uses the first 3 sectors of track 
1 7 for internal disk housekeeping, (0, 1 , & 2), there won't be 
any programs listed in these three sectors, so there is no need 
to search them for programs. 

Lines 30 through 90 combine string #1 & #2 and break it 
down into the various program NAMes and EXTensions. 

Lines 100 through 120 check for any filenames with an 
EXTension "DAT". 

For your menu program, you would not need to separate 
the filenames and extensions. You also would not need to 
search for a specific EXTension. As you read in the program 
names/extensions, you could dimension an array, telling the 
program to print out the listing on the screen next to the 
corresponding array element where the program is stored. At 
the end of your list, you could then use the INKEY$ to pick 
one of your programs to run. The instruction could be some- 
thing like: 

100 RUN A$(X) 

Where A$ is the name of the array and X is the cell in the 
array. 

If you have an assembly language program in your 
directory, you would need to examine the EXTension for the 
BIN designation and use a GOTO statement like the 
following: 

99 IF MID$(A$(X),9,3)="BIN" THEN GOTO 

1000 
1000 LOADM A$(X) 

* * Author's Note: Since my CC is otherwise occupied at 
the moment, I cannot tell you whether you will need to insert a 
"/" between the program name and the extension or whether 
it is saved in that fashion. Be sure to check it out before 
running the program.** 

"How can passwords be put on disk programs?" 

Since the operating system was designed to be "invisi- 
ble" to the user ( so you would not have to learn a whole new 
language), the provision for password protection was not 
included in the Disk instruction set. Following that idea, since 
there is not a password- protect for tape-based programs, 
one was not included for disk-based programs either. This is 
not to say that it is impossible to do, only that our disk system 
does not offer a command (or subcommand) which supports 
password protection. 

As far as protecting your programs, there are a number 
of ways that can be tried. As with "burglar alarms," the best 
protection is that made up by the programmer (unique to that 
program or series of programs). You can try saving a short 
program on the master diskette which must be loaded from 
the program before it will continue. Or you can try PEEKing at 
a location in memory that you have POKEd a value into prior 



to loading the program before the program will continue. 
(Neither of these solutions will prevent you from loading the 
program though.) You might try setting up your own directory 
(using the DSKI$/DSKO$ commands to read/write directly to 
the diskette without updating the directory. Here, you would 
need to remember where you put what, how long it is, etc., 
not to mention the need to convert each of your program lines 
to strings. Like I said, it's not impossible and with a little 
ingenuity, you could develop your own security system for 
your disk files/programs. 

High Resolution 
Graphics with 4K 

Mark Ayen 

5 Glenvale Avenue 

Darien, CTR 06820 

Not many people who own 4K Color Computers with 
Color BASIC realize that they can use high resolution 
graphics, too. The program I have enclosed makes use of 
these graphics and is interesting to fool around with. The 
program, Sine I, plots a sine wave using a routine readily 
adaptable to other purposes. 

To change the frequency of the wave, change the num- 
ber '20' in line 90 to anything from 5 to 25. To thicken and 
define the wave better, change line 160 to: 

160 BYTE=3088: BIT=128: GOTO 70 

Does that not look better? 



1 

2 




3 


Sine I 


4 ' 


by MARK AYEN 


5 ' 


1981 


6 ' 




7 ' 




10 


CLEAR 10,3071 


20 


BYTE=3072 




: BIT=128 


30 


FOR X=3072 TO 4095 




: POKE X,0 




: NEXT 


40 


FOR X=0 TO 9 




: READ M 




: POKE 65472+X*2+M,0 




: NEXT 


50 


DATA 1,0,0,0,1,1,0,0,0,0 


60 


POKE 65314,140 


70 


FOR X=0 TO 6.2832 STEP .1 


80 


V1=SIN(X) 


90 


V=Vl*20+32 


100 


B=BYTE+INT(V+.5)*16 


110 


POKE B,(PEEK(B) OR BIT) 


120 


BIT=BIT/4 


130 


IF BIT<2 THEN BIT=128 




: BYTE=BYTE+1 


140 


NEXT 


150 


FOR X=3568 TO 3583 




: POKE X,255 




: NEXT 


160 


GOTO 160 
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Sub Destroyer 



R. Bruce Nagel 

100 Monteray Avenue 

Dayton, OH 45419 



The object of this game is to destroy ten submarines per 
round in the least amount of time. This is accomplished by 
dropping depth charges from a ship on the surface of the 
water. 

When all ten submarines are destroyed, a new round of 
ten submarines will begin. Each submarine destroyed is 
worth ten points, but if a submarine is allowed to surface 
(reach the top left corner of the ocean), five points are de- 
ducted, and the submarine returns to the ocean floor. 

HOW TO PLAY 

The player controls the movement of the ship and the 
dropping of the depth charges. To move the ship, the keys 
<G> (left) and <H> (right) are used. Pressing <F> drops a 
depth charge. There is no limit on the amount of shots which 
may be fired, yet the ship cannot move or fire until the charge 
hits the submarine or the ocean floor. If a charge hits a 
submarine, ten points are awarded and a beep is heard. 
There is no penalty for missing. 

RULES AND STRATEGIES 

Each game is five hundred time units in length. When a 
depth charge is underway, the clock stops. If a key is pressed 
while the clock is stopped, the computer will remember and 
carry it out when time resumes. If a submarine reaches the 
top left corner, it returns to the bottom of the screen causing 
five points and, more costly, time to be lost. Each submarine is 
placed randomly in the ocean each round, but the ship 
remains where it was at the end of the previous round. 




5 


REM SUB-DESTROYER 


10 


REM BY R.BRUCE NAGEL 7/81 


20 


PMODE , 1 




: PCLEAR 1 




r CLEAR 100 


30 


K = 1 76 




: QQ=501 


40 


DIM P( 9) 


50 


CLS 3 




: PRINT STR INC$ (9,144) 


60 


PRINT >39 , "SUB- DESTROYER"; 


70 


PR INT SIR ING$ (42,144); 


75 


PRINT STRINGS (32 ,"#") ; 


80 


PR INT STRINGS (96,159); 


90 


PRINT (3 1 60 , STR ING$ ( 32 , 159 ) ; 




: PRINT @K,"<X>"; 



100 FOR X=0 TO 9 
1 10 P(X) = RND(288) + 221 
120 IF X=0 THEN 140 
130 FOR Q = 0TO X-l 

: IF P(X)«>P(Q)+2 OR P(X)-<P(Q)-2 
THEN NEXT Q ELSE 110 
140 PRINT @ P (X) ,CHR$ ( 1 27 ) ; 
150 NEXT X 
160 FOR X=0 TO 9 
170 IF P(X)=0 THEN 220 
180 P(X)=P(X)-1 
190 IF P(X)<192 THEN 240 
200 PRINT (3 P (X) + l , CHRS ( 1 75 ) ; 
210 PRINT @ P (X) ,CHR$ ( 1 27 ) ; 
220 NEXT X 

230 IF A$<>"F" THEN 250 ELSE RETURN 
240 PRINT @P(X)+1,CHR$(175); 
XX=XX-5 
P(X)-507 
GOTO 200 
250 A$=INKEY$ 
260 QQ-QQ-1 

: PRINT (336, "SC0RE-"XX, "TIME-" QQ; 
270 IF QQ-0 THEN 530 
280 IF A$-"G" THEN K«=K-2 
290 IF A$-"H" THEN G-G+2 
300 IF A$-"F" THEN GOSUB 360 
310 IF K<160 THEN K> 1 6 
320 IF K>189 THEN K-189 
330 PRINT @ 160 , STRINGS (32 , 159) ; 

: PRINT8K , "<X>" ; 
340 GOSUB 1 60 
350 GOTO 250 
360 II=K 

370 FOR 1=0 TO 9 
380 I 1=1 1 + 32 
390 IF I I> 5 1 1 THEN 490 
400 GOSUB 160 
4 1 PRINT @ I I , "I" ; 
420 FOR T=0 TO 9 

430 IF P(T)=1I THEN 440 ELSE 460 
440 P(T)=P 

XX=XX+ 10 

Z-Z+l: PRINT @ II,CHR$(175); 
SOUND 10,1 
450 IF Z=10 THEN 500 ELSE 4 90 
460 NEXT T 

470 PR INT @ I I ,CHR$ (175); 
480 NEXT I 
490 A$="" 

: GOTO 160 
500 Z=0 
510 CLS 

: PRINT (3 231, "ALL SUBS DESTROYED!!" 
515 PRINT <? 6, "SCORE-" XX "TIME-"QQ; 
520 FOR TM-1 TO 15 

: PLAY"T30CDEFGAB" 

: NEXT TM 

: GOTO 50' 
530 PRINT I? 72, "TIME HAS EXP IRE D#### #$## " ; 
540 PRINT @ 96 , "RATING-"; 
550 IF XX<100 THEN PRINT "STICK TO RAFTS" 

: END 
560 IF XX<200 THEN PRINT "SAFE IN A ROWBOAT" 

r END 
570 IF XX<300 THEN PRINT "DINGHY PILOT" 

: END 
580 IF XX<400 THEN PRINT "NAVY MATERIAL" 

: END 
590 IF XX<500 THEN PRINT "P . T . CREWMAN" 

: END 
600 IF XX<600 THEN PRINT "DESTROYER CAPTAIN" 

: END 
610 IF XX<700 THEN PRINT "FLEET COMMANDER" 

: END 
620 IF XX<800 THEN PRINT "ADMIRAL OF THE NAVY" 

: END 
630 IF XX<900 THEN PRINT "SECRETARY OF THE NAVY' 

: END 
640 PRINT "COMMANDER-IN-CHIEF" 

: END 
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Call or Visit the 
Radio Shack Computer Center 
Near You for More Information 
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1618 39664'0 
HOMEWOOO'OLFNWOOD 329 ke^wood I a"5ing 

(317 758 5440 
LaGRANQE One S LaCraiQe Rd (31?: 482 3484 
LOMBARD 4 vfxfctowi Cef'e. l312- 629-5350 
NILES 8349 QaM Rd 312) 470 06 73 
OAK LAWM 48'5 VV 95lfi S' T7| 475 9130 
PEORIA 4?5S SW(H- W (309 686 7056 
ROCKFORO Awfli Towr S7C 3600 K Main St 

K 100' 
SCHAL1MBORC 65' Mm l> '3'2) B84 8600 

INDIANA 
EVANSV1LU 43' DjmoTd Ave 18121 426-1715 
FT WAYNE 747 NoftfaM SVC (719' 482 964 T 
QHIFFtTH 70S ^V R.dge Rd (719) B38 3OO0 
INDIANAPOLIS 674? f B2"id St . Qstielof Pto 

(3": 649 6896 ioeedway P>«a 6129 8 

CtawKxdsvMK (317 244 2221 'O0'3 E 

WisfK-gto" &' 3 1 ') 8964887 
IOWA 
DAVENPORT 6'6 F Kimberty Re ,3'9) 386 3457 
DES MOINES 7B60 H,c«r-^r Rd Sherwood For a* 

S-W i £ ,l5 770-0193 

KANSAS 
OVERLAND PARK 8619 * Km 1913, 642 1301 
WICHITA :Ti? Bvi: ■' I [ J1J) 6»1 1212 

KENTUCKY 
FLORENCE 7727 Wall Rd '6061 371 28 1 1 
L E KIN QTON 2909 Richmond Rd (606) 269- 732* 
LOUISVILLE 2900 'ayi<yjv»e Rd (502) 459 9901 

LOUISIANA 
BATON ROUSE 7007 Fkxida B-vd (504, 928 5280 
METAJRIE 3 "50 vate'Wis Mw> (504) 454 3661 
NEW ORLEANS l? 1 St Charles Ave 

504i 573-6408 
SHREVEPORT '545 t ,n# Ave (318: 221 5125 

MAINE 
BANGOR Marrte Sgu4'». iTOTl 9466491 

MARYUND 
BALTIMORE 7942 Be*' Rd PytTy Hw Ptaa 

30' i 882 9583 
CAT0NSV1LLE One M* WW S.C 6600 B Ball 

■L<: ^ke (301 7B8 ■ 
FREDERICK Sr>cppe's World Ft* 40Vi 

30 'I 695 8440 
ROCKY1LLE ConQresstOna Plaia '673 Roctvi* 

& «* (301 964 0424 
SAL1S8URT SI DfM*rs KVorW Srt P' 50 

-<r - 546 9223 

MASSACHUSETTS 
BOSTON 730 Com-nooweaflh Ave (61 T, 739-1704 
BRAINTREE Sov"h Shce PUi* 250 Granile Si 

5171 646 9290 
BROCKTON 675 Balmom (6171 583 2270 
CAMBRIDGE Karvart Sqi.a'! 28 Boyslon St 

6'-'i 354 7694 
CHESTNUT HILL TOO acysto- St (617,969-2031 
NATICK '400 ^o^cestt- Rd . [6171 875-8721 
SAUGUS 343 B-oadwa, (6' 7) 233 4985 
SPRINGFIELD '985 Mam Si "tofifgaie PV 

? A Hb 
WORCESTER 1 incotn PUn 1617, 852 8844 

MICHIGAN 
BIRMINGHAM 3620 w Maple Rd |313| 647 2151 
OETROIT OWNTW '559 Woodward Ave 

(313) 961 6855 
FLINT G3298 M.ltei Rd Vorksf>,fe Pu-a 

'■? 7530 
GRAND RAPIOS 3142 28tfi S! SE l616| 957 2040 
KALAMA200 25 Ka«ma200 Carrlar ,'6i5) 343 0780 
LANSING 25' 9 S Cad* St (517,372 1120 
LTVOHIA 334 70 W 7 Mile Rd (313 476 6600 
R01EVTLLE 3'873 GratKj* Ave (313) 796-6210 
SOUTHFIELD 1765: *V*s' '7 M -e Rd 

fi9 1027 
TROY Oa«.and FUa 322 Jofm fl fid 
(313' 566 3900 

MINNESOTA 
BLOOMINCTON '0666 Branca Ave S 

[8121 8*4 1641 
GOLDEN VALLEY Golden Valley SVC 6016 Oiscr 

Mf'O'J >+*-y ,612, 542 8471 
ST PAUL 6th i vViWsl-4 '6' 2) 291 7230 

MISSISSIPPI 
JACKSON 87f Elts Avl (601 352 5001 
MISSOURI 

FLORISSANT 4 7 'orssant 0«« S7C. 

(314, 921 7722 
INDEPENDENCE 1325 S No<a->d Rd 

">4 3701 
KANSAS CITY 4025 K Oa* Iratficway 

(81*1 455 3381 
ST ANN t047? St Charles Roc* Rd 
(314i 428-1400 

NEBRASKA 
OMAHA 3006 Dodge Si 402* 346 4003 

NEVADA 
LAS VEGAS Commera* Certtr 953 E Sana -a 

»3i 8 (702, 73'-3956 
RENO 3328 K*OTe lane ,'02 826-6327 



NEW HAMPSHIRE 

MANCHESTER Hamwht'e P at 1000 Ejm S: 
(603 625 4040 

NEW JERSEY 
E BRUNSWICK 595 A R: 18 (20l)236 7'4? 
E HANOVER Rt !0 Hanover PtaM [20 1 ) 684 ■ ' 200 
LAWRENCEV1LLE Rt 1 S. T ei »s Ave 

(609) 77' -81 13 
PARAMUS "5 Rt '7S (201)262 1920 
SPRINGFIELD FT *7i CraflaX Me i?0K 467 9827 

NEW MEXICO 

ALBUOUEROUE 2108 Sar Mareo Nf 
(50S> 265-9587 

NEW YORK 

ALBANY Show*'*- P» Wort Rd (5-1 a; 459-5627 
SAY SHORE 1751 Sunns* Hwy (5' 6) 566 1 BOO 
BETHPADE 422 H Waitag" Ave , (5'fi) 8?2 5403 
BUFFALO B39 tei F»fe BM . (71fl) 837 2590 
FRESH MEADOWS '87 '? Horace Harding Exp 

464 '075 
JOHNSON CtTY Git Shor»t(XJ CtnlBi F-a-y . 

Dr*va. ,607) 729-6312 
MELVILLE TSS Mai. Rl 110 1516(673 4646 
NEW ROCHEUJ 242 Nor't- Ave .914) 636 0700 
NEW YORI 385 F-tti Ave (21?; B89 1345 130 E 

42nd S: ,212,9536060 
REGO PARK 97 ^ Que*"! 9*"* . >2'2) 897 5200 
ROCHESTER 3O00 Wlntori Rd '7' 6) 244-6400 
STATEN ISLAND 2409 Richmond Ave , 

(2*2] 698 3100 
SYRACUSE 2544 E ie BNd (315) 446-30' 7 
UTICA Riverside Mai, ,3'5i 735 1933 

NORTH CAROLINA 
CHARLOTTE 3732 indeoeodence Blvd 

,704) 534-6320 
GREENSBORO 371B Hign Point Rd (919) 294 5529 
RALEIGH "ownriflge St) Hwy 70 vV 

,73'9| 781 9380 
WINSTON-SALEM 629 Peler; Creek P)rwy , 

(919) 7220030 

OHM 

AKRON fairiawn Plaza 7727 W Marital SI 

'216) 836 9303 
CANTON 5248 D-ess»er Rd NW (218; 494-7230 

Mei«t Plan. 3828 W Tuscarawas 

(2'6) 476-1878 
CENTERYILLE 2026 MtarmstK- r B Cefflervila Rd 

,'5'3: 435 5167 
CINCINNATI 9725 Montgomery I5'3) 793 8688 
CLEVELAND 419 Eudtd (Dwnfwnl (2161 575-0800 

27561 Et*t»d Ave . (216) 289-6823 
COLUMBUS B62 S Han tor Gm! EtSUrn SVC 

(6 '4) 864-2806 
DAYTON NoT!*«est Plaza 3279 Wast SMbtnattaMr 

(5'3] 777 6500 
NORTH OLMSTED Great Norlherri SVC 

(2111 '34 2255 
TOLEDO 5844 W Central Ave (419) 5315797 
YTJUNOSTOWN Lnio-i Squart P'azi. 2543 BMmont 

Ave (216) 744-4641 

OKLAHOMA 
OKLAHOMA CfTT 4732 Sf 29tr, St (405,8704661 

Soonpdaw SVC 4469 NW 50t^ (405) 943-8"'12 
TUUA 72*8 & 7220 E 4'« St . :9*8) 663-2190 

OREGON 

EUGENE 390 Coouro Hd (503) 687 0082 
PORTLAND 7463 SW Banxii B(vd i503i 246 1 157 
9131 Sf Powel. ;503l 777 2223 

PENNSYLVANIA 
ALIENTOWN Crest P»n aVC, Cedar Crest Bivd US 

22 (215) 396-7'55 
BALA CmWYD 67 t Crry u"ie Ave 

(2* 51 666-9950 
ERIE 5755 Pttctl St (814) 868 5541 
HARRIS BURO Jnon Depostl Mad Jrwxi Deposit 

Rd #17 (712) 5646753 
LANCASTER P»rt City Plan. JS 30 (717; 393-5817 
M0WTGOMERYV1LLE Alport So Rt 309 

■ 2'5( 362-12O0 



PHILADELPHIA 7542 Castor Ave (211* 342-2217 
100? Chasing S* 2'5l 923 3060 

mrs8DRGH 5775 Baptist Rd Hals PWa 

(412:83'96SM 303 Snuthtietd St 

(412' 391-3150 
SCRANTON 206 Meadow Ave (717)3481801 

RHODE ISLAND 
E PROVIDENCE 850 Watrman Ave 
(401; 438266C 

SOUTH CAROLINA 

COLUMBIA Old Sears Btdfl , 1001 Harden St 

1803: 799 2065 
GREEN VILLI H Hlhs S/Z (803: 292 1835 
N CHARLESTON 5900 Rivers Ave (809) 747-5580 

TENNESSEE 

CHATTANOOGA 636 Nolhgate Mall (615) 870-1366 
JOHNSON CTTY Peerless Center. (615) 282-6829 
KNOXVILLf Cedar Bkrft S/C. 9123 Executive Part 

Or. (615)690-0520 
MEMPHIS 4666 Amencart Way (801) 795-4963 

1997 Union Ave . (901) 272-3055 
NASHVILLE 21 IS Frankln Pike (615) 298-5484; 

Fttvergate Plaza, (615) 859-3414 

TEXAS 

ARLINGTON 2500 E Randol MiU. Suite 1)3 

(81 7 " 774 3127 
AUSTIN 8764 t Research BFvd (512) 459-4238 
BEAUMONT 5330 Fastex Frwy (713) BEKS-70O0 
CORPUS CHRISTI 17" S St** St . 

t"- 1 ?) 887 890 1 

OAilu ' 5340 Data Pkwy . SuHe 1 100 

(214) 834-0275 2930 W NorThwesf Hwy , 

( 214 350-4144 '517 Mam St , (214) 760-8601 
EL PASO 95*5 Galeway Wesl (915) 594.8211 
FT. WORTH '5 One Taidy Center. (817) 335- "7198 

2801 AJta Mere, |8i 7) 738-0251 
HOU8T0M 21'C-F* 1960. 713) 444-7006 '0643 

Gurt Fwy (713) 943-9310 5900 NorW Fwy . 

(713)889 193? 68'3SWFwy (713)777 7907 

BOB Dallas St (71J| 65' 3002 
HUH8T MO'Theast Ma* (817) 264-1518 
LUBBOCK 3625 34th St :B06) 793-1467 
ODESSA '6' 3 A East Bin Street. (915) 334 8355 
RKHARJDSOB) Fleetwood Sq. SVC 202 W Campbal 

Rd (214i 689 1494 
SAN ANTONIO 6018 West Ave (512)3448792 

4249 Ce"t B rgate, (5t?) 657-3958 

UTAH 
MUFWAY 6061 S SHU Ave.. (801) 2688978 
SALT LAKE CITY 415 5th Ave , (801) 322-4893 

VIRGINIA 

ALEXANDRIA 4527 Duke St , Wesiend SVC 

(703) 370 9000 
FAIRFAX West'atr Center 11027 lee Hwy , 

(703) 273-85O0 
NORFOLK 5731 Popiar rt* Or 1804) 461-0798 
RJCttMOMO Wllow Lawn S/C. 1617 Wilow Lawn 

Dr (804) 282-3453 7728 Midlothian Turnpike. 

(804) 2728803 
ROANOKE Franklin Bade. 3561 Frank* 1 Rd S W 

(703) 347-6335 

WASHINGTON 
BELLEVUE Crossroads Mat. North East Bth 6 156 

St (206)644-1804 
FEDERAL WAY 33506 Pacific Hwy South 

(206) 838 6830 
SEATTLE 16405 Aurora Ave S (206) 5428184 
SPOKANE 7702 \ Dlvisior (509) 464-7000; E 

'24'2 Sprague I509) 9222800 
TACOMA 7030 S. Soraoue, (2081 473-7333 
TUKWILA 15425 53rd Ave 5 , (206) 2483710 
YAKIMA 1111 N Ftsi St , (509) 248-9667 

•VEST VIRGINIA 
HUNTtNflTtMl 2701 'A 5th Ave . (304) 523-3527 

WISCONSIN 
MADISON 57 Wesr Towne Mac (608| B33-6130 
MILWAUKEE 6450 h 7G01 St.. (414) 353-6790 
WEST ALUS 2717 South 108th St . |414', 327 4240 






